













Coupez, copiez, collez 
tout simplement ! 


Epistole /{c possède 
es fonctions de mailing 
t calcul intégrés. 


Permet de rédiger : 
lettres, rapports, 
circulaires, mais aussi 
factures, devis, budgets, 


etc. 
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LOGICIELS POUR APPLE" 


IL (fonctionnent sur ][ + et //e, le C figurant à côté d'un nom 
indique que le programme est garanti fonctionner sur //c) 
JEUX Prix TI.C. 
ARCADE AEE001 DROL (Broderbund) 350,00 
AFE001 C ZAXXON (Datasoft) 380,00 
AGE001 MINIT MAN (Penguin) 200,00 
AGE002 BOUNCING KAMUNGAS (Penguin) 300,00 
AJE001 NIGHT MISSION PINBALL (Sublogic) 350,00 
ARE002 AQUATRON (Sierra) 300,00 
AEE002 SPARE CHANGE (Broderbund) 350,00 
AVE001 WAY OUT (Sirius) 270,00 
AWE001 G THE HEIST (Micro Fun) 410,00 
AEE003 GUMBALL (Broderbund) 310,00 
AJE002 FLIGHT SIMULATOR Il (Sublogic) 550,00 
AUE001 C SUMMER GAMES (Epyx) 410,00 
AEE004 CHOPLIFTER (Broderbund) 340,00 
AWE001 MINER 2049ER (Micro Fun) 400,00 
ARE003 OIL'S WELL (Sierra) 300,00 
AGE004 THE SPY STRIKES BACK (Penguin) 200,00 
STRATEGIE AME001 PROF. TOURNAMENT GOLF (Strategic) 400,00 
AAE001 SARGON lil (Hayden) 470,00 
AME002 BATTLE OF NORMANDY (Strategic) 400,00 
AVENTURE AHE001 MASQUERADE (Phoenix) 350,00 
AIE001 LEGACY OF LLYLGAMYN (Sir-Tech) 400,00 
ARE001 DARK CRYSTAL (Sierra) 380,00 
UTILITAIRES 
IMPRESSION ATEO01 G SIDEWAYS (Funk) 620,00 
EDIT. BASIC ADEO01 C G.PL.E. (Beagle Bros) 600,00 
TABLEUR ABE002 MULTIPLAN (Microsoft) 1.750,00 
COMMUNIC. AKEO01 C ASCII EXPRESS: THE PRO (United) 1.200,00 
//e Uniquement : (80 coi) 
ORGANISATION AQB001 THINK TANK (US) (Living Videotex) TÉLÉPHONEZ! 
TABLEUR+ ANF001 TK! SOLVER (US) (Software Arts) 3.700,00 
//c et //e uniquement : (80 coi) 
FICHIER ACF001 PFS : FILE (US) (Software Pub.) 1.250,00 
IMPRESSION ACF002 PFS : REPORT (US) (Software Pub.) 1.250,00 
FICHIER ASF001 HOME CATALOGER (US) (Continental) 520,00 
**x e 
Macintosh: 
JEUX 
ARCADE BAGOO1 MAC VEGAS (US) Roulette-Poker-Blackjack-Keno- TÉLÉPHONEZ! 
Baccarat-Machine à sous-Craps MA 
STRATEGIE AAGO0O1 SARGON II! (US) (Hayden) TÉLÉPHONEZ! 
AXG001 MILLIONAIRE (US) (Blue Chip) 600,00 
AXG002 BARON (US) (Blue Chip) TÉLÉPHONEZ! 
AXG003 TYCOON (US) (Blue Chip) TÉLÉPHONEZ! 
AGG003 TRANSYLVANIA (US) (Penguin) 400,00 
AGG005 PENSATE (US) (Penguin) 430,00 
AZGO01 RUN FOR THE MONEY (US) (Scarb.) 460,00 
BAGOO2 MAC GAMMON (US) TÉLÉPHONEZ! 
BAGO03 MAC CHECKERS & REVERSI (US) TÉLÉPHONEZ! 
UTILITAIRES 
TABLEUR ABG002 MULTIPLAN (US) (Microsoft) TÉLÉPHONEZ! 
GRAPHIQUE ABGO005 MICROSOFT CHART (US) 1.300,00 
LANGAGE ABG006 MICROSOFT BASIC (US) 1.400,00 
FICHIER ACGO001 PFS : FILE (US) (Software Publ.) 1.250,00 
IMPRESSION ACG002 PFS : REPORT (US) (Software Publ.) 1.250,00 
FICHIER+ AYGO01 FILEVISION (US) (Telos) 2.000,00 


Tous nos prix sont valables dans la limite des stocks disponibles. Nous n'encaissons votre réglement que lors de l'expédition de votre commande 
Toute commande non expédiée sous un délai maximum de 15 jours sera remboursable sur votre demande. Tous nos envois sont recommandés 
“Apple est une marque déposée Apple Computer Inc 
** Macintosh est sous licence chez Apple Computer Inc 24, rue d'Armaillé, 75017 Paris - 572 55 15 





p RÉFÉRENCE | DÉSIGNATION NOMBRE 














| Participation aux frais de port et d'emballage 
[ TotaL | 


Signature (obligatoire pour paiement 
O Paiement par chèque joint par carte de crédit} 


D CCP 


Paiement par carte bieue VISA 


N° Lys i | [ | || J L_1 | | L] nent 1 VE) 


















24 rue d'Armaillé 75017 Paris 


(1) 5725515 

















NOM —— PRÉNOM —_ 
Q Je désire seulement recevoir votre catalogue 
(Joindre deux timbres tarif lettre normal) RS — - Li 
Code postal : Ville 





un produit WESTCORP Téléphone __. 


Pom's n° 15 


Editorial 


Pour les possesseurs du Macintosh. une bonne et une mauvaise nouvelle à la fois La bonne nouvelle : 
le Macintosh 512K est arrivé. La mauvaise nouvelle : il en coûte 10.000 F hors taxe prix public. par 
rapport au 1Z8K: la mémoire vous revient moins cher en mangeant du poisson... Pour le logiciel itou : 
la bonne nouvelle est représentée par l'annonce de 80 logiciels. la mauvaise étant que l'on constate dès 
à présent du retard par rapport aux dates annoncées dans le dossier de presse Apple du Sicob. Il est 
vrai que la mise au point d'un logiciel sur un équipement possédant les fonctionnalités du Macintosh 
n'est pas une sinécure. Enfin. fidèles à notre promesse, nous développons dans ce numéro un cahier 
Macintosh. dans lequel nous essaierons de vous fournir. comme pour l'Apple . des programmes et des 
remarques vous apportant plus que la simple lecture des documentations. 


Quant à la ligne Apple ”. la compatibilité relative due (voir Pom's 13) fait qu'aujourd'hui il se vend 
encore un ‘€ pour un /c. trompant ainsi toutes les prévisions d'Apple. Comme le disent les sages 
asiatiques, la prévision est un art difficile. surtout quand elle porte sur l'avenir ! Résultat : il faut faire la 
queue pour acheter un ‘’e alors qu'on échange sans problème un chèque contre un ‘c prêt à emporter. 


L'équipe de Pom's vient de s'enrichir de deux personnes. D'ici la fin de l'année. nous espérons donc 
qu'il nous faudra moins de trois mois pour répondre à votre courrier Ceci dit. ne prenez pas Pom's 
pour une entreprise de conseil gratuite : certains lecteurs nous envoient des questions qui resemblent 
plutôt à un ‘cahier des charges” et pour lesquelles la réponse demanderait une véritable intervention de 
conseil. C'est trop ! 


Une dernière remarque : certains contributeurs. dont nous admirons la ‘fluencyv”. nous envoient des 
programmes dont tous les commentaires sont rédigés en anglais. amenant les lecteurs à croire que nous 
reproduisons. 6! honte. des programmes américains. S'il vous plaît. envoyez donc des contributions 
entièrement en français. 


Enfin, ultime bonne nouvelle : Olivier Herz est de retour du Japon avec toujours de l'hexadécimal plein 
la tête. Gageons que l'auteur de Haifa. du H-Basic et de l'analvseur de syntaxe nous réserve encore 
quelques surprises ! 


Hervé Thiriez 


Photo de couverture : écran Portac avec batterie incorporée, pour Apple c. fabriqué par IEF {voir Micro Informations}. 
La forme du moniteur n'est pas définitive 
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programmer 
un ordinateur est 
devenu pour vous 

un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 





dans la conception des programmes 
qui “tourneront” sur votre machine. 
LIST vous initie aux langages informatiques .. 
et sélectionne les meilleurs livres pour ms cnrhe 
progresser. LIST vous informe de l'actualité PL er 
et vous fournit trucs, astuces et idées # 
pour mieux programmer... BULLETIN 
Pour être sûr de ne rater aucun numéro “ D'ABONNEMENT 
#Ÿ. à retourner à LIST 
æ . (service abonnement) 
5, place du Colonel-Fabien, 


di 2 _ 
pr 75491 Paris Cedex 10 
? Non 

+ Adresse: 

DE 4 
LAÏ SI PE # Ville: .. 
/ Code postal:L1 1111 Pays: 
Veuillez m'abonner pour 10 numéros au prix 
avantageux de 160 F* au lieu de 200 F. Je fais ainsi 
archand une économie de 40 F sur le prix de vente au numéro. 
F chez votre m Je joins mon règlement indispensable libellé à 
+ Belgique : 1330 FB; Suisse : 50 FS; Canada : 30 $C; 
autres pays: 210 FF. 


et pour recevoir LIST chez vous, 
abonnez-vous! 









de 





TP 


Un éditeur de secteurs : MOBBY DISK 


Le programme le plus utile en cas 
d'opération malheureuse sur dis- 
quette est certainement l'éditeur de 
secteurs ou ‘DISK ZAP”. Il permet 
l'affichage à l'écran et la modification 
des codes hexadécimaux contenus 
sur la disquette. Il est ainsi possible 
d'intervenir directement au niveau 
des secteurs pour recouvrer un fi- 
chier "DELETé”, une disquette qui 
ne BOOTe plus, ou pour rendre co- 
hérent un enregistrement qui com- 
porte une erreur. L'intérêt de ce type 
de programme ne se limite pas à la 
remise en état des secteurs : il de- 
vient par exemple possible de suivre 
précisément le travail du DOS. 


Parmi les plus connus, on peut citer 
INSPECTOR, WATSON et surtout 
DISKFIXER. Ce dernier aurait ma 
préférence, mais il lui manque certai- 
nes options de WATSON telles que 
le désassemblage et le choix de la 
page mémoire à éditer. 


Il était intéressant de tenter de faire 
tenir en moins de 2K les principales 
fonctions. En effet, le possesseur de 
carte EPROM peut alors avoir en 
permanence à portée de la main un 
utilitaire dont l'usage se révèle fré- 
quent, sans devoir le charger depuis 
la disquette. À vous de juger si le jeu 
en valait la chandelle. 

Notez que la version publiée ici fonc- 
tionne en RAM et n'a donc besoin 
d'aucune extension particulière. 


Après avoir entré et sauvegardé le 
code-objet, le programme se lance 
simplement par: BRUN MOBBY- 
DISK. 


Examinons les commandes : 


Modes d'affichage 


B sélectionne le mode d'affichage 
mixte, dans lequel le contenu du buf- 
fer est affiché simultanément en 
hexadécimal et en ASCII C'est le 
mode d'affichage par défaut. En rai- 
son des dimensions de l'écran, seule 
une moitié du buffer est affichée; on 
accède à la deuxième moitié en dé- 
placant le curseur au-delà des limites 
de la fenêtre. 


H affiche le contenu du buffer en 
hexadécimal seulement. 


G affiche en ASCII seulement. 


Y commute le filtre permettant de 
n'afficher que les caractères en ASCII 
normal. 
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Lecture-écriture 


D commande le changement de 
drive. 


R permet la lecture d’un secteur : le 
curseur se positionne alors sur le nu- 
méro de la piste à indiquer en hexa- 
décimal. Si le numéro en cours 
convient, faire simplement RETURN. 
Le curseur passe alors au numéro de 
secteur que l’on contrôle de la même 
manière. Les flèches gauche et droite 
commandent la lecture des secteurs 
précédent et suivant. 





W recopie sur la disquette le contenu 
du buffer. On indiquera les numéros 
de piste et secteur comme dans l'op- 
tion lecture. 


Edition d’un secteur 


1, J, K, M déplacent le curseur res- 
pectivement vers le haut, la gauche, 
la droite, le bas. Le rang de l'octet 
est affiché sur la ligne supérieure. 


: autorise la modification de l’octet 
où se trouve le curseur. Selon le 
mode d'affichage, on pourra ainsi 
entrer un caractère ASCII ou une va- 
leur hexadécimale. 


T en mode ASCII commute l'écriture 
en normal, inverse ou clignotant. Le 
symbole ‘’#"” en bas à droite de 
l'écran reflète cet état. Les caractères 
inverses ou clignotants ne seront visi- 
bles que si le filtre est supprimé (se 
reporter à la commande "Y”). 


Thierry Le Tallec 


RETURN permet la saisie d’un texte 
ou de valeurs hexadécimales à la 
volée. Dans les modes mixtes et 
hexa, tous les octets modifiés appa- 
raissent en inverse jusqu'à l'écriture 
ou la lecture d’un secteur de la dis- 
quette. 


ESC sort de ce mode de saisie. 


— restitue l’ancienne valeur en cas 
d'erreur. 


X annule toutes les modifications 
d’un buffer. 


P autorise le choix de la page mé- 
moire qui sert de buffer. L'adresse 
de ce dernier est indiquée en clair au 
bas de l'écran. On en changera en 
donnant directement l'adresse au cla- 
vier. Par défaut, le buffer est en 
$4000. 

À noter qu'il est également possible 
de changer la page du buffer sans 
passer par la commande P, en utili- 
sant les signes <” et >", respecti- 
vement pour diminuer ou augmenter 
de $100. 


Désassembleur 


CTRL-D provoque le désassemblage 
de la page buffer. La barre d'espace- 
ment fait progresser d’une ligne, la 
touche RETURN d'une page écran 
(12 lignes). 

ESC sort du mode désassembleur. 


Hard-copy d’écran 


CTRL-P vous donne une copie im- 
primante (sortie parallèle) de l'écran, 
les caractères inverses et clignotants 
étant recodés avant impression. Cette 
commande suppose que votre impri- 
mante est connectée dans le slot 1. 


Q permet de quitter le programme et 
rend la main au niveau du moniteur. 


NDLR : une version en EPROM est 
disponible pour les lecteurs possé- 
dant une carte RAM/EPROM/ 
TIMER/PORTS PARALLELES. Vous 
pouvez à cet égard prendre contact 
avec l’auteur: Mr Le Tallec, 69 rue 
Sauveur Tobelem - 13007 MAR- 
SEILLE. 


S1 vous n'êtes pas encore abonné à Pom's 
prenez le brun en ‘® 
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HD DE HE DE NE HE JDE DE NE DE DE NEED ÉD DE EE DE 6 DE 36 6 EX 
* * 
* .-.-.Mobby-Disk... * 
# # 
* Thierry Le Tallec * 
# * 
HD D ED EH DE DE DE HE DE DE DE DE DE DE DE ED DE DE DE DE DE DE DE EX 
* Utilitaire de lecture-{criture de 
disques 
EPROM KBD 30 = RAM, 
1 = EPROM 
DO EPROM 
ORG $C800 
ELSE 
ORG +$8000 
FIN 
* constantes: 
LST OFF 
FRANCAIS KBD 
DO FRANCAIS 
LST ON 
trackpos = 7 
sectpos = 19 
byrtepos = 29 
volpos = 38 
LST OFF 
ELSE 
LST ON 
trackpos = 7 
sectpos = 13 
brtepos = 27 
volpos = 38 
LST OFF 
FIN 
LST ON 
bufpos D 8 
CR = $30 
ctri_D = +84 
ctriP = $?70 
ESC = $°B 
#* 
temp = +06 
curCH = $08 
curCU = $09 
dfltval = $19 
val = $1A 
dignum = $1B 
mask = $1E 
byte _ $E3 
display = $EB 50=mixte, 
{=hexa, 2=ASCII 
filter = $EC :$00=off, 
$80=on 
CHtemp = $ED 
base = $EE 
vfst = $EF 
bufptr = $FA 
SBUF = $200 
EBUF = +4000 
* 
WNDTOP — $22 
WNDBTM = $23 
CH = $24 
CU = $25 
BASL = $28 
BASH = $29 
GBASL = $26 
GBASH = $27 


$2F 
$32 
$35 
$3A 
$3B 
$309 
$3E3 
$C000 
$C010 
$C030 
$F8D0 
$F944 
$F953 
$FB2F 
$FBSE 
$FBCI 
$FCS8e 
$FC9C 
$FD8E 
$FDDA 
$FDED 
$FE34 
$FE9S 3: PRHn 


$100 
10B+1 
108+2 
10B+3 
10B+4 
10B+5 
I10B+8 
10B+12 
I10B+13 
10B+14 
10B+15 
10B+1é4 


32 
#$FF 
sinitialis 


mask scaractire 


filter sfiltre en 


display saffichage 


base sadresse d 


"GROSSIERS SOFTWARE" 
“ <Mobby-Disk> 
"02/05/84" 


MSGAT 

0,2 

OFF 

FRANCAIS 

ON 

“Piste $ /Secteur $ 


/0Octet 8 /Vol. $ " 


LENGTH = 
INUFLG = 
YSAVI = 
PCL = 
PCH = 
RUTS = 
GETIOB = 
KBD = 
KBDSTRB = 
SPKR = 
INSTDSP = 
PRBLNK = 
PCADJ = 
INIT = 
TABU = 
BASCALC = 
HOME = 
CLREOL o 
CROUT = 
PRBYTE = 
COUT _ 
SETNORM = 
OUTPORT = 
#* 
10B = 
SLOT = 
DRIVE = 
$ VOLUME = 
TRACK = 
SECTOR = 
USRBUF = 
CMDCODE = 
ERRCODE = 
VOLFND = 
SLOTFND = 
DRL'FND = 
* 
TR 
AST 
LDX 
TXS 
e la pile 
STX 
s normaux 
STX 
service 
INX 
STX 
STX 
mixte 
STX 
e base = $00 
AST 
TITLE JSR 
JER 
JSR 
INU 
ASC 
INU 
BRK 
JSR 
DFB 
LST 
DO 
LST 
ASC 
LST 
ELSE 
LST 
ASC 


OFF 


ON 
"Track $ /Sector $ 


/Byte $ /Volume $ " 


LST 


OFF 
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136 FIN 

137 LST ON 

138 BRK 

137 LDY #39 

140 LDA #"-" 

141 Ti STA +$480,Y strace 3 1] 
ignes de pointill£s 

142 STA $580,Y 

143 STA +650 ,Y 

144 DEY 

145 BPL Ti 

i4é JSR MSGAT 

147 DFB 0,21 

148 ASC "Buffer +0000" 

149 BRK 

150 JSR MSGAT 

151 DFB 33,21 

152 ASC "Drive " 

153 BPK 

154 JSR GETIOEB 

L55 STY temp 

156 STA  temp+i 

157 LDY His 

158 MOVIOB LDA  Ctemp),Y 

157 STA I10B,Y srecopie | 
10B en zone connue 

160 DEY 

161 BPL MOVIOR 

162 INY 

163 STY  USRBUF 

164 STY bufptr 

165 LDA  #)EBUF 

1éé STA bufptr+li 

167 

168 WRMSTRT JSR PREBUF 

169 LDA #$30 

170 JSR  PSNBRAC saffiche 1] 
es "} ç® 

171 MAIN JSR MSGRTM 

172 ASC "“->" 

173 BRK 

174 SR  GETCMD 

175 BCC MAIN sattend co 
mmande suivante 

176 BCS WRMSTRT srafraichi 
t 1’£cran si carry 

177 %# 

178 GETCMD JSR GETKEY 

179 LDY  HSUBTBL-CMDTBL 

180 CMDSRCH DEY 

181 BMI  NOTFND 

182 CMP  CMDTBL,Y 

183 BNE CMDSRCH 

184 TYA 

185 ASL 

186 TAY 

187 LDA SUBTBL+1,Y 

188 PHA 

189 LDA  SUBTBL,Y 

190 PHA 

191 RTS 

192 NOTFND CMP  #H"O" 

193 BLT  BADCMD 

194 CMP  #"9" 

195 BGE  BADCMD 

196 AND  H$OF 

197 STA temp 

198 LDA bufptr+i 

199 AND  #H#$F0 

200 ORA temp 

201 STA bufptr+i 

202 SEC 

203 RTS 

204 BADCMD JSR  SOUND 
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JMP 
AST 


CMDTBL ASC 


ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 


ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
t 
DFB 
une chaine 
HEX 
r£ctdent 
HEX 
uivant 
DFB 


le le buffer 
SUBTBL DA 


UP SEC 


LEFT LDY 


RIGHT LOY 


DOWN CLC 


GETCMD 

32 

"1" gmonte curseur 
“J" curseur ® gauche 
"K" s;curseur 3 droite 
"M" descend curseur 


"Y" sfiltre on/off 
"T" 3;NRM, INV ou FLS 


"G" ;Ascii 
“H" jhexa 
"B" mixte 


"R" ;lire un secteur 
"W" stcrire un secteu 


"X" srestore buffer 
“D" ;change de drive 
"a" ;quitter 

“P" ;jchange de page 
"<*“ ;page prctdente 
">" ;spage suivante 
*“-" srestore un octet 
":" saisie d’un octe 


CR ssaisie d° 
88 ssecteur p 
95 ssecteur s 


ctri_D :d(sassemb 
UP-1 
LEFT-1 
RIGHT-1 
DOWN-1 
FILTER-I 
ROLMASK-1 
SETASCII-I 
SETHEXA-1 
SETMIXT-1I 
RDSECT-I 
WRSECT-1 
RSTBUF-1 
CHGDRU-1 
QUIT-1I 
CHGEBUF-1 
PRUBUF -1 
NXTBUF-1 
UNCHNG-1 
CHGBYT-I 
CHGDATA-I 
PRUSCT-I 
NXTSCT-1 
DISASM-1I 
32 


byrte 
vufst 
PSNBYT 


byrte 


PSNBYT 


byrte 


PSNBYT 





273 PSNBYT PHA 
27 LDA  #Hü 
275 JSR  PSNBRAC 
ciens ">  <" 
276 PLA 
277 STA byrte 
278 JSR  SHOUWRYT 
279 LDA  H##$3û 
280 JER  PESNBRAC 
ouveaux "?} ÇA 
281 CLC 
282 RTS 
283 
284 PSNBRAC  PHA 
285 NXTBRAC SEC 
286 LDA byte 
287 SBC base 
la demi-page 
288 STA temp 
289 LOY display 
e 7 
290 BNE NXTERI 
ute 
291 TAX 
ste la demi-paae 
292 BPL  SAMEPAG 
293 JSR PRBUF 
. demi-page si besoin 
É 294 JMP NXTBRAC 
# 295 SAMEPAG L£SR 
M 296 LSR 
a r 8 (calcule la ligne) 
£ 297 LSR 
jé 298 TAX 
1 299 LDA temp 
k 300 AND  K$07 
k osition dans la ligne 
301 BPL NXTBR2 
ujours) 
302 NXTBRI LSR 
303 LSR 
304 LSR 
r 16 (modes “G" et “H*) 
305 LSR 
306 TAX 
307 LDA temp 
308 AND  H$OF 
osition dans la ligne 
309 NXTBR2 STA temp 
310 TXA 
ligne 
311 CLC 
312 ADC #4 
313 STA  curCv 
314 JSR TABU 
315 LDA temp 
position dans la ligne 
314 ASL 
caractères par octet) 
317 CLC 
318 LDY display 
e ? 
317 BEQ PRBR3 
ute 
320 DEY 
? 
321 BEQ PREBR4 
ute 
322 ADC #4 
1 : marge = 4 
323 TAY 
324 PLA 
le code 


10 


efface an 


saffiche n 


;sdttermine 


smode mixt 
non =) sa 


soui =) te 


schanae de 


sdivise pa 


reste = p 


ssaute to 


sdivise pa 


reste = p 


srtcupire 


sr<tcupire 


sdouble (2 


smode mixt 
joui =} sa 
smode hexa 
soui =} sa 


mode ASCI 


sr€cupire 


Tjve 


lJve 


PRER3 


e : ma 


res par octet 


le cod 


Ijve " 


ljve 


PRBR4 
: mar 


e le curseur 


le cod 
FLASHIT 
hing 


FLASHI 


tire € 


Tignot 


NOFLASH 


SHOWBYT 


BRACKET 


Â=">" 


BRACK 


JSR BRACKETS 
STA  (BASL) ,Y smet ou en 
> LL 
INY 
STY curCH 
INY 
TXA 
STA  (BASL),Y smet ou en 
ç" 
RTS 
ADC #4 smode mixt 
rge = 4 
ADC temp 53 caract} 
TAY 
PLA srtcupire 
e 
JSR  BRACKETS 
STA  (BASL) ,Y smet ou en 
NW 
INY 
STY curCH 
INY 
INY 
TXA 
STAR  (PASL) ,Y smet ou en 
qu 
RTS 
ADC #5 smode hexa 
ge = 5 
TAY 
STY curCH spositionn 
PLA srécupire 
e 
TAX  ;$00=normal, $80=flas 
BPL  NOFLASH 
LDX #2 
LDA  CBASL),Y slit carac 
cran 
AND #$7F 
ORA  ##$40 
STA  (BASL),Y sle fait c 
er 
INY 
DEX 
BNE  FLASHI 
RTS 
STY CH 
LDY byrte 
JMP  OUTBYTE 
JSR MSGAT 
DFB byrtepos,2 
BRK 
LDA byte 
JMP PRBYTE 
S TAX ,A=SEC =2 
X="<" 
EMI  BRACK 
LDA #4" " :4=$00 => 
x=" " 
TAX 
RTS 
LDA #’>’+#40 
LDX #’<’+#40 
RTS 
AST 32 


Pom's n° 15 


383 FILTER LDA filter 
Jve le filtre 

384 EOR #$80 

385 STA filter 

386 SEC 

387 RTS 

388 AST 32 

389 ROLMASK LDA mask 

390 LSR 

391 CMP  H$1F 

392 BNE  ROLMSKI 

393 LDA H#$FF 

394 ROLMSKI STA mask 

395 RTS 

396 AST 32 

397 SETASCII LDA #0 
CII (CG) 

398 LDY #2 

399 BNE  SETMODE 

400 SETHEXA LDA #0 
xa (CH) 

401 LDY #1 

402 BNE  SETMODE 

403 SETMIXT LDA base 
xte (CB) 

404 LDY #0 

405 SETMODE STA base 

406 STY display 

407 SEC 

403 RTS 

409 AST 32 

410 RDSECT JSR  GETPRMS 

411 ROSECTI LDA #Hi 

412 SETRUTS STA CMDCODE 

413 JSR GORWTS 

414 SEC 

415 RTS 

416 

417 GETPRMS LDA #2 

418 JSR TABV 

419 LDY #Htrackpos 

420 LDA  TRACK 

421 JSR GETBYTE 
m£iro de piste 

422 CMP #36 
stes 

423 BGE GETPRMS 

424 STA TRACK 

425 GETPRMS2 LDY #Hsectpos 

426 LDA SECTOR 

427 JSR  GETBYTE 
mtro de secteur 

428 CMP #16 
cteurs 

4329 BGE GETPRMS2 

430 STA SECTOR 

431 SEC 

432 RTS 

433 AST 32 

434 WRSECT JSR GETPRMS 

435 LDA #2 

434 BNE  SETRUTS 

437 AST 32 

438 PRUBUF DEC bufptr+i 
page pr{c{dente 

439 SEC 

440 RTS 

441 AST 32 

442 NXTBUF INC bufptr+i 
page suivante 

443 SEC 

444 RTS 

445 AST 32 


Pom's n° 15 


smet ou 


smode 


smode 


(]l 


smode 


3VTAB 2 
:HTAB n 
sattend 


smax 36 


:HT8B n 
sattend 


max lé 


sbuffer 


sbuffer 


en 


nu 


nu 


se 


446 


447 
448 
449 
450 
451 
452 
453 


454 
455 
456 


457 
458 
457 
460 
4éi 
462 
463 
464 


PRUSCT DEC SECTOR slit le se 
cteur pr£c{dent 
BPL  PRUI 
LDA  H#$OF 
STA SECTOR 
DEC TRACK 
BPL  PRUI 
LDA #$22 
STA TRACK 
PRUI JMP  RDSECTI 
AST 32 
NXTSCT LDY SECTOR slit le se 
cteur suivant 
INY 
CPY #Hié 
BNE NXTI 
LDY #0 
LDX TRACK 
INX 
CPX #22 
BNE NXTO 
LDX #0 
NXTO STX TRACK 
NXT 1 STY SECTOR 
JMP  ROSECTI 
AST 32 
CHGDRV LDA DRIVE schange de 
drive 
EOR ##03 
STA DRIVE 
SEC 
RTS 
AST 32 
QUIT JSR INIT sefface ]l”° 
{cran et quitte le programme 
JSR HOME 
JMP  $FF645 
AST 32 
CHGBUF LDA #21 
JSR TABU 
LDA bufptr+i 
LDY #Hbufpos 
JSR GETBYTE 
STA bufptr+i 
SEC 
RTS 
AST 32 
UNCHNG LDY byte srestore 1] 
‘’octet ol est le curseur 
LDA SBUF,Y 
STA  (bufptr),Y 
JMP CHGEYT4 
AST 32 
CHGDATA JSR CHGBYT spermet 1” 
{dition du buffer 
JMP  CHGDATA 
AST 32 
CHGBYT LDA curCV spermet 1” 
{dition d’un octet 
JSR TABV 
LDY byte 
LDA  Cbufptr),Y 
LDY curCH 
STY CH 
LDX display smode mixt 
e ? 
CPX #2 smode ASCI 
I 7 
BNE  CHGBYT2 non =) sa 
ute 
JSR GETKEY 
JSR  DOMASK 
JMP CHGBYT3 








509 CHGBYT2 JSR GETBYTE 
510 CHGEYTS3 LDY byte 
511 STA (bufptr),.Y 
nouvelle valeur 
512 CHGBYT4 INY 
513 STY CHtemp 
514 JSR PRBUF 
S15 LDA CHtemp 
516 JUMP  PSNBYT 
517 AST 32 
518 DISASM LDA #4 
le le buffer 
519 STA WNDTOP 
520 LDA #20 
S21 STA WNDBTM 
522 JSR HOME 
523 LDA #18 
524 JSR TABV 
525 LDA  bufptr 
526 STA PCL 
527 LDA  bufptr+i 
528 STA  PCH 
529 DISO LDX #Hié 
530 DIS1 STX temp 
531 DIS2 JSR  INSTDSP 
532 LDY LENGTH 
533 DIS3 LDA  CPCL),Y 
534 STA  $5F3,Y 
535 DEY 
526 BPL  DIS3 
537 JSR PCADJ 
538 STA PCL 
539 STY  PCH 
540 DEC temp 
541 BNE DIS2 
542 DIS4 LDA  KBD 
543 BPL DIS4 
544 JSR GETCP 
545 LDX #1 
546 CMP  #CR 
547 BEQ DISO 
5438 BNE DIS1 
549 AST 32 
550 PRBUF LDA #4 
e contenu du buffer 
551 STA CU 
552 LDY display 
e ? 
533 BNE  PRBUFO 
ute 
554 SEC 
555 LDA byte 
termine la demi-page 
556 SBC base 
557 BPL  PRBUFO 
558 LDA base 
559 EOR #H$80 
demi-page si besoin 
560 STA base 
561 PRBUFO LDA base 
562 STA temp 
563 PFREUFI LDA CV 
544 JSR TABU 
565 JSR PRLINE 
566 INC CU 
567 LDA CU 
548 CMP #20 
569 BNE  PREUF1I 
570 SHOWPRMS LDA #2 
571 JSR TAEBU 
572 LDA  TRACK 
573 LOY #Htrackpos 
574 JSR DSPERYT 
D 
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“Rés pa 
128346 


srange la 


sdtsassemb 


;UTAB 18 


saffiche 1] 


:VTARB 4 
smode mixt 


snon =) sa 


joui =) d{ 


schange de 


:VUTAB 2 


saffiche 1] 


(ADI TEEN 


979 
576 
577 


578 
579 
580 


581 
582 
583 


584 
585 
586 
587 
588 
5e9 


590 
591 
5972 
593 


594 
995 
596 
397 
578 
5977 


600 
601 
602 
603 


604 
605 
é0é6 
607 
608 


609 
610 
611 

612 
613 
614 
615 
616 
617 
618 
619 
620 
621 

622 
623 


624 
625 
625 
627 
628 
629 
630 
631 
632 
633 


634 


635 


e numéro de piste 


LDA SECTOR 
LDY #Hsectpos 
JSR DSPBYT 
e numtro de secteur 
LDA byte 
LDY #Hbytepos 
JSR DSPBYT 
e rang de l’octet 
LDA  VOLFND 
LDY #Hvolpos 
JSR DSPBYT 
e numéro de volume 
LDA DRIVE 
CMP DRUFND 
BNE  INUDRU 
ORA  H#$50 
INUDRU ORA  #$30 
STA $6F7 
e drive en service 
LD  H21 
JSR TABU 
LDA bufptr+i 
LDY  #Hbufpos 
‘adresse du buffer 
DSPBYT STY CH 
JMP  PRBYTE 
PRLINE LDY  #HQ 
STY CH 
STY  temp+i 
dans la ligne 
LDA #"$" 
JSR COUT 
LDA temp 
JSR PRBYTE 
$", l'adresse 
JSR OUTSPACE 
UJSR  OUTSPACE 
HEXASC LDY temp 
LDA (bufptr),Y 
LDX display 
mode d’affichage 
BEQ MIXTE 
DEX 
BEQ HEXA 
JSR  OUTCHAR 
JSR  OUTSPACE 
JMP ASCII 
HEXA JSR OUTBYTE 
ASCII INC temp 
INC  temp+i 
LDA  temp+i 
CMP #Hié 
BNE  HEXASC 
STA vfest . 
JMP  CLREOL 
MIXTE PHA 
IXTE *+# 
JSR  QUTBYTE 
JSR OUTSPACE 
LOY CH 
LDA #32 
CLC 
ADC  temp+i 
STA CH 
PLA 
JSR  OUTCHAR 
STY CH 
H 
INC temp 
octet suivant 
INC  temp+i 


saffiche 1 


saffiche ] 


saffiche 1] 


saffiche 1 


;UTAB 21 


saffiche 1] 


sposition 


gaffiche * 


steste le 


:#*x MODE M 


ssauve CH 


srestore C 


spointe |” 


scompte ju 


Pom's n° 15 


squ’4 8 fois 


636 LDA  temp+i 

637 CMP #8 

638 BNE  HEXASC 

639 STA vufst 

640 LDX #3 

é41i JMP  PRBLNK 

642 

643 OUTBYTE LDX #$FF 

644 LDA  (bufptr),Y 

645 CMP  SBUF,Y 

é46 BEQ NORMAL 

647 LDX H##$3F 

648 NORMAL STX  INUFLG 

649 JSR PREBYTE 

650 JMP  SETNORM 

é51 

652 OUTSPACE LDA #H" " 

653 OUTCHAR CMP  H#$A0 

654 BGE  OUTCH2 

655 BIT filter 

6356 BPL  OUTCH2 

657 ORA  #$30 

658 CMP  H$ED 

65? BLT  OUTCHI 

660 AND #HZ1{10111111 

é6i OUTCHI CMP  H#AO 

é62 BGE  OUTCH2 

663 LDA #H"_" 

éé4 OUTCH2 STY  YSAUVI 

665 LDY CH 

ééé STA (BASL) ,Y 

667 INC CH 

668 LDY  YSAVI 

669 RTS 

670 AST 32 

671 GETBYTE STA dfitval 
valeur par d(faut 

672 STY CHtemp 
ition dans la ligne 

673 GETBYTI LDA CHtemp 

674 STA CH 

675 LDA #2 

676 STA dignum 
ctères par octet 

677 LDA #0 

678 STA val 
e la valeur 9 z{tro 

679 LDA dfltval 

680 JSR PRBYTE 
a valeur par d(faut 

681 LDOY CHtemp 

682 STY CH 

683 NXTDIG LOY CH 

684 LDA  (BASL) ,Y 
iffre sur l’{£cran 

6835 STA  temp+i 
ce chiffre 

686 JSR GETKEY 
e touche 

687 STA  (BASL) ,Y 
e chiffre tap{ 

688 CMP  #H##$88 
? 

689 BEQ GETBYTI 
commence 

690 CMP HCR 

691 BEQ GETBYT3 
vient tout de suite 

692 CMP  #"0" 
chiffre hexa CO-F) 

693 BGE  GOODO 

674 BADNUM JSR  SOUND 

Pom's n° 15 


srange la 


set la pos 


sdeux cara 


sinitialis 
saffiche ] 
slit un ch 


smémorise 

sattend un 
saffiche ] 
;sbackKspace 
=) re 


soui 


sreturn ? 
soui =) re 


teste si 


Sinon "so 


nne", 

695 LDA temp+i srécupire 
chiffre originel, 

696 LDY CH 

697 STA  (BASL) ,Y sle remet 
sur l’{cran, 

698 JMP  NXTDIG set va att 
endre autre chose. 

699 GOOD0 CMP  H"9"+1 

700 BLT GOOD1 

7û1 CMP  #"A" 

702 BLT  BADNUM 

703 CMP  H"F"+1 

704 BGE  BADNUM 

705 SBC #Hé 

7064 GOOD1 AND  H$0F 3Si le chi 
ffre est valable, 

707 STA  temp+i 

703 LDA val 

707 ASL 

710 ASL 

711 ASL 

712 ASL 

713 OPA  temp+i :1/introdu 
it 2 la droite de val, 

714 STA val 

715 DEC  dignum 

716 BNE  GETBYT2 set passe 
au chiffre suivant. Ÿ 

717 LDA val à 

7138 SEC 

719 RTS 

720 GETBYT2 INC CH 

721 LDY CH 

722 LDA #" " 

723 STA  (BASL),Y 

724 JMP NXTDIG ; 

725 GETBYT3 LDA dignum 3 

724 CMP #2 4 

727 BNE GETEYT4 

728 LDA dfitvual 

729 STA val srevient a 
vec la valeur par d(faut 

730 GETEYT4 LDA CHtemp 

731 STA CH 

732 LDA val 

733 JSF PRBYTE 

734 LDA val 

735 SEC 

736 RTS 

737 AST 32 

738 GORUTS LDA #0 

739 STA VOLUME 

740 LDOA bufptr+i 

741 STA  USRBUF+1 

742 LDY #10B 

743 LDA #)10B 

744 JSR RUTS 

745 BCC SAUBUF 

746 JSR  SOUND 

747 LST OFF 

748 DO FRANCAIS 

749 LST ON 

750 JSR MSGBTM 

751 ASC "Erreur d" 

752 BRK 

753 LDA  CMDCODE 

754 CMP #2 

253 BEQ UWRERR 

756 JSR MSGOUT 

757 ASC ‘“e lecture" 

758 BRK 

757 RETRY JSR MSGOUT 

 * 
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760 ASC “, nouvel essai 7?" 827 RDKEY LDY CH 





761 BRK 82 LDA  (BASL) ,Y 
762 JSR GETKEY 829 PHA 
763 CMP  #"Y" 830 LDA #"#" 
764 BEQ GORUTS 831 JSR  DOMASK 
765 CMP #"0O" 832 STA %7F7 
766 BEQ GORWTS 823 RDKI LDA #"_" 
767 SEC 834 JSR BLINK 
768 RTS 835 BMI  KEYFOUND 
767 WRERR JSR MSGOUT 836 PLA 
770 ASC "‘’ecriture" 837 PHA 
771 BRK 838 JSR BLINK 
772 JMP  RETRY 839 BPL  ROKI 
773 LST OFF 840 KEYFOUND PLA 
774 ELSE 841 STA  (BASL),Y 
775 LST ON 842 TXA 
776 JSR MSGBTM 843 RTS 
74 ASC “can”t ? 844 
778 BRK 845 BLINK STA  (BASL) ,Y 
779 LDA  CMDCODE 846 LDX #50 
780 CMP #2 847 STX temp 
781 BEQ WRERR 848 BLINKI LDA KBD 
782 JSR MSGOUT 849 BMI BLINK2 
783 ASC "read" 850 DEX 
784 BRK 851 BNE  BLINKI 
785 RETRY JSR MSGOUT 852 DEC temp 
786 ASC ", retry ?* 853 BNE  BLINKI 
787 BRK 854 BLINK2 STA  KBDSTRE 
788 JSR GETKEY 855 TAX 
789 CMP H#"Y" 856 RTS 
790 BEQ GORUTS 357 
791 SEC 858 DOMASK CMP  HK$EO sminuscule 
792 RTS ? 
793 WRERR JSR MSGOUT 259 BGE  DMSK1 joui =) ne 
794 ASC "write" change pas 
775 BRK 860 LDX mask snon: test 
796 JMP_ RETRY e si FLS ou INV 
bi ii gé1 CPX  HS7F 
776 ner Jen 862 BNE DMSK2 
AL AST 32 863 CMP H$CO 
800 SAVBUF LDY #0 864 BGE  DMSK2 
801 SALBUFI LDA (bufptr),Y ;srecopie 1] 865 EOR H$CO 
e buffer de travail 864 DMSK1 RTS 
802 STA  SBUF,Y 5 dans Île 867 DMSK2 AND mask 
buffer de sauvegarde 848 RTS 
803 INY 869 AST 32 
804 BNE  SAUBUFI 870 HARDCOPY LDX #$2F 
805 SEC 871 HARDO LDA 0,X 
806 RTS 872 STA 10B+17,X sauve Îla 
807 AST 32 page ztro 
808 RSTBUF LDY #0 873 DEX 
809 RSTBUFI LDA SBUF,Y srecopie 1] 874 BPL  HARDO 
e buffer de sauvegarde 875 LDX #22 
810 STA  (bufptr),Y ; dans 874 STX WNDTOP 
le buffer de travail 877 STX WNDBTM 
811 INY 878 LDA Hi 
812 BNE RSTBUF1 879 JSR  OUTPORT ;PR#1 
813 SEC 880 LDA  #ü 
814 RTS 881 STA temp 
815 AST 32 882 HARDI JSR BASCALC 
814 GETKEY JSR RDKEY 883 LDA BASL 
817 GETCP BIT KBDSTRB 884 STA GBASL 
818 CMP  #kctr]l_P sctrl<P. 2 885 LDA BASH 
819 BEQ  HARDCOPY soui =) co 886 STA  GEASH 
pie l’£cran 887 LDA #22 :VTAB 22 
820 CMP  HESC sescape ? 8eg JSR TABV 
821 BNE  GETRTS 889 JSR CROUT 
822 LDX #$FF 890 LDY #0 
823 TXS 891 HARD2 LDA  CGBASL) ,Y 
824 JMP  WRMSTRT soui =) re a92 CMP  #H$20 inverse ? 
start 893 BGE NOINV 
825 GETRTS RTS 894 ADC  H$CO joui =) no 
826 rmal 


14 Pom's n° 15 


895 NOINV CMP  #H$60 sflashing 931 TAY 
? 932 S3 DEY 
876 BGE NOFLS 933 BNE S3 
897 ORA  #$80 soui => no 934 BIT SPKR 
rmal 935 DEX 
898 NOFLS CMP  #H$AO scaractire 936 BNE Si 
de controle ? 937 RTS 
879 BGE NOCTRL 938 AST 32 
900 ADC ##540 oui =) no 929 MSGBTM  JSR MSGAT 
rmal 940 DFB 0,23,0 
901 NOCTRL CMP  H$FF :1l/imprima 941 JSR CLREOL 
nte n'aime pas celui-12 942 * 
902 BNE PRINT 943 MSGOUT  PLA 
903 LDA #" ” 944 STA temp 
904 PRINT JSR COUT 945 PLA 
905 INY ?4é STA  temp+1 
706 CPY #40 sfini lign 947 LDY #0 
e ? 948 BEQ MSGNXT 
907 BNE  HARD2 non =) co 949 * 
ntinue 950 MSGAT PLA 
908 INC temp 951 STA temp 
909 LDA temp 952 PLA 
910 CMP #23 953 STA  temp+1 
911 BLT  HARDI 954 LDY #1 
912 JSR CROUT 955 LDA  Ctemp) ,Y 
913 LDA #0 956 STA CH = 
914 JSR  OUTPORT 957 INY ce 
915 LDX ##2F 958 LDA (temp) ,Y . 
916 HARD3 LDA 10B+17,X 959 JSR TABU 5 
917 STA 0,X srestore 1! 960 MSGNXT INY #3 
a page z{ro 761 LDA (temp) ,Y Le 
913 DEX 962 BEQ MSGEND #4 
919 BPL  HARD3 963 JSR COUT 5 
920 JMP  GETKEY 964 JMP  MSGNXT E* 
921 AST 32 965 MSGEND CLC ii 
922 SOUND LDX  #$B0 Péé TYA + | 
923 S1 TXA 967 ADC temp et 
924 EOR ##$80 968 TAY FA 
925 TAY 969 LDA  temp+i 
926 S2 DEY 970 ADC #0 
927 BNE S2 971 PHA 
928 BIT SPKR 972 TYA 
929 TXA 973 PHA 
930 ADC #$80 974 RTS 
6 i i = $ 89 29 0F 85 - 91 28 C3 CA DO F4 60 84 
Récapitulation Sir + 4 HA :. . 05 06 85 S1r0- 24 > E3 4C 1E 84 20 4F 
80F8- FB 38 60 20 22 86 4C CC 81F3- 86 10 02 00 AS E3 4C DA 
8000- A2 FF 9A 86 1E 86 EC E8 8100- 80 C? CA CB CD D9 D4 C7 8200- FD AA 30 04 A9 A0 AA 60 
8008- 86 E3 86 EB 86 EE 20 2F 8108- C8 C2 D2 D7 D8 C4 Di D0 8208- A9 7E A2 7C 60 AS EC 49 
8010- FB 20 S8 FC 20 45 86 07 8110- BC BE AD BA 8D 88 95 84 8210- 80 85 EC 38 60 AS 1E 4A 
8018- 12 0F 13 13 09 0S 12 13 8118- 45 81 40 81 54 81 5B 81 8218- C9 1F DO 02 A9 FF 85 1E 
8020- 20 13 OF 0é 14 17 01 12 8120- 0C 92 14 82 20 82 26 82 8220- 60 A9 00 A0 02 DO 0A A9 
8028- 0S A0 BC CD CF C2 C2 09 8128- 2C 82 36 92 68 82 48 85 8228- 00 A0 01 DO 04 AS EE A0 
8030- AD C4 C9 D3 CB BE A0 30 8130- AB 82 BS 82 BE 82 6F 82 8230- 00 8S EE 84 EB 38 60 20 
8038- 32 2F 30 35 2F 38 34 00 8138- 73 92 CE 82 DE 82 08 82 8238- 44 82 A9 01 8D OC 01 20 
8040- 20 4F 86 00 02 DO C? D3 8140- 77 82 8E 82 0C 83 38 AS 8240- Dé 84 38 60 A9 02 20 5B 
8048- D4 CS A0 A4 A0 A0 AF D3 8148- E3 ES EF 4C 61 81 Ad E3 8248- FB A0 07 AD 04 01 20 54 
8050- CS C3 D4 CS DS D2 A0 A4 8150- 88 98 4C 61 81 A4 E3 C8 8250- 84 C9 24 BO EF 80 04 O1 
8058- A0 A0 AF CF C3 D4 CS D4 8159- 98 4C 61 81 18 AS E3 65 8258- A0 13 AD 05 01 20 54 84 
8060- A0 A4 A0 A0 AF Dé CF CC 8160- EF 48 A9 00 20 74 81 68 8260- C9 10 B0 F4 8D 05 01 38 
8068- AE A0 A4 A0 A0 00 A0 27 8168- 85 E3 20 Fé 81 A9 80 20 8268- 60 20 44 82 A9 02 DO CC 
8070- A9 AD 99 80 04 99 80 05 8170- 74 81 18 60 48 38 AS E3 8270- Cé FB 38 60 Eé FB 38 60 
8078- 99 S0 06 88 10 F4 20 4F 8178- ES EE 85 06 A4 EB DO 13 8278- CE 05 01 10 OF A9 OF 8D 
8030- 86 00 15 C2 DS Cé Cé CS 8180- A 10 06 20 51 83 4C 75 8280- 05 01 CE 04 01 10 05 A9 
8088- D2 A0 A4 B0 80 B0 B0 00 8188- 81 4dA dA 44 AA AS 06 29 8238- 22 8D 04 01 4C 34 82 AC 
8090- 20 4F 86 21 15 C4 D2 C9 8190- 07 10 09 dA 44 4A 4A AA 8290- 05 01 C8 CO 10 DO OF A0 
80?8- Dé CS A0 00 20 E3 03 84 8193- A5 06 29 0F 85 06 84 18 8298- 00 AE 04 01 ES EO 23 D0 
80A0- 06 85 07 A0 10 B1 06 99 81A0- 469 04 85 09 20 SB FB AS 82A0- 02 A2 00 8E 04 01 8C 05 
80A8- 00 01 88 10 F8 C8 8C 08 81A8- 06 OA 18 A4 EB F0 14 88 82A8- 01 4C 34 82 AD 02 01 49 
80B0- 01 84 FA A? 40 85 FB 20 8180- FO 25 69 04 A8 68 20 01 82B0- 03 8D 02 01 38 60 20 2F 
8088- 51 83 A7 80 20 74 81 20 81B8+- 82 91 28 C3 84 08 C8 Sa 8288- FB 20 58 FC 4C 65 FF A9 
80C0- 3C 86 AD BE 00 20 CC 80 81C0- 91 28 60 49 04 65 06 A8 82C0- 15 20 SB FB AS FB A0 08 
80C3- 90 F5 B0 EB 20 55 85 A0 81C93- 68 20 01 92 91 29 C3 34 82C3- 20 54 84 85 FB 38 60 A4 
80D0- 17 88 30 11 D9 01 81 D0 81D0- 08 C8 C8 SA 91 28 60 69 8200- E3 89 00 02 91 FA 4C 02 
8008- F8 98 OA A8 B? 17 81 48 81D08- 05 A8 84 08 68 AA 10 0F 8209- 83 20 DF 82 4C D9 82 AS 
80E0- 89 18 81 48 60 C7 80 90 81E0- A2 02 B1 28 29 7F 09 40 82E0- 09 20 SB FB A4 E3 B1 FA 
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82E3- A4 08 84 24 Âé EB E0 02 8420- Bi FA D9 00 02 F0 02 A2 8558- 2C 10 CO C9 90 F0 Sé C9? 





82F0- DO 09 20 S5 85 20 A1 85 8423- 3F 86 32 20 DA FD 4C 84 8S60- 98 D0 06 A2 FF 94 4C B7 
82F8- 4C FE 82 20 54 84 A4 E3 8430- FE A9 A0 C9 A0 B0O 12 24 8543- 80 60 A4 24 Bi 29 48 A9 
8300- 91 FA C8 84 ED 20 S1 83 8438- EC 10 0E 09 80 C9 E0 90 8570- A3 20 Al 85 80 F7 07 A9 
8308- AS ED 4C 61 81 À9 04 85 8440- 02 29 BF C9 AO B0 02 A9 8578- DF 20 34 85 30 07 68 48 
8310- 22 A9 14 85 23 20 58 FC 8449- DF 84 35 A4 24 91 28 Es 8580- 20 8A 935 10 F2 48 91 28 
8318- A9 12 20 5B FB ÀS FA SS 8450- 24 A4 35 60 85 19 84 ED 8538- SA 60 91 283 A2 32 86 06 
8320- 34 AS FB 85 3B A2 10 86 8459- AS ED 85 24 A9 02 85 !1B 8590- AD 00 CO 30 07 CA D0 F8 
8328- 06 20 D0 F8 A4 2F B1l 3A 8460- A9 00 85 14 AS 19 20 DA 8599- Cé 06 D0 F4 8D 10 CO AA 
8330- 99 F3 05 88 10 F8 20 53 8448- FD A4 ED 934 24 A4 24 BI 8SA0- 460 C9 E0 B0 0C Âé 1E E0 
8338- F9 85 34 84 3B Cé 0é DO 8470- 28 85 07 20 55 85 91 28 8SA48- 7F DO 07 C9 CO B0 03 49 
8340- E8 AD 00 CO 10 FB 20 S8 8478- C9 88 FO DC C9? 8D FO 3F 8580- CO 60 25 1E 40 A2 2F 85 
8348- 85 A2 01 C9 8D F0 Dé D0 8430- C7 80 B0 0C 20 22 86 AS 8588- 00 9D 11 01 CA 10 F8 A2 
8350- Dé A9 04 85 25 A4 EB D0 8438- 07 A4 24 91 28 4C 6D 84 8SC0- 16 Sé 22 86 23 A9 01 20 
8358- 0D 38 AS E3 ES EE 10 064 8490- C9 BA 90 OÀ C9 Ci 90 EC 8S5C3- 95 FE A9 00 85 06 20 C1 
8360- AS EE 49 80 85 EE AS EE 9499- C9 C7 80 ES E9 06 29 0F 8500- FB ÀS 28 85 26 AS 29 85 
8368- 85 06 AS 23 20 SB FB 20 8440- 85 07 ÀS 1A4 0À 04 08 0 35D8- 27 A9 16 20 SB FB 20 3E 
8370- BB 33 Eé 25 AS 25 C9 14 8448- 05 07 95 14 C$S 1B D0 04 8S5E0- FD AO 00 B1 24 C9 20 80 
8378- DO F0 A9 02 20 SB FB AD 8480- AS 14 38 60 Es 24 A4 29 8SE3- 02 49 CO C? 40 80 02 09 
8380- 04 01 A0 07 20 86 83 AD 8488- A9 A0 91 28 4C 6D 84 AS 85F0- 80 C? AO B0O 02 49 40 C? 
8388- 05 01 A0 13 20 Bé 83 AS 84C0- 18 C7? 02 D0 04 AS 19 8S 85F8- FF DO 02 A9 A0 20 ED FD 
8390- E3 A0 1D 20 8é 83 AD 0E 84C3- 1A AS ED 85 24 AS 1A 20 8600- C3 CO 28 DO DE Eé 06 AS 
8398- 01 A0 26 20 86 83 AD 02 84D0- DA FD AS 1A 38 60 A? 00, 8608- 06 C9 17 90 C1 20 8E FD 
83A0- 01 CD 10 01 D0 02 09 80 84D8- 8D 03 01 AS FB 8D 09 01 8610- A9 00 20 95 FE A2 2F BD 
8348- 09 30 8D F7 06 A9 15 20 84E0- A0 00 A9 01 20 09 03 90 8618- 11 01 95 00 CA 10 F8 4C 
83B80- 5B FB AS FB A0 08 84 24 84E3- 54 20 22 Sé 20 3C 86 CS 8620- 55 85 A2 B0 84 49 80 A8 
8389- 4C DA FD A0 00 84 24 84 84F0- F2 F2 ES F5 F2 A0 E4 00 8623- 88 DO FD 2C 30 CO 8A 49 
83C0- 07 A7 A4 20 ED FD AS 0é 84F3- AD 0C 01 C9 02 FO 2E 20 8630- 80 A8 88 DO FD 2C 30 CO 
83C3- 20 DA FD 20 31 84 20 31 8500- 45 8é ES A0 EC ES E3 F4 8638- CA DO E9 60 20 4F 86 00 
8300- 34 A4 Dé B1 FA Aé EB F0 8508- F5 F2 ES 00 20 45 86 AC 8640- 17 00 20 9C FC 68 85 06 
83D8- 1E CA F0 09 20 33 84 20 8510- A0 EE EF FS Fé ES EC A0 8648- 68 85 07 A0 00 F0 12 68 
83€0- 31 84 4C ES 83 20 1E 834 8518- €S F3 F3 El €? AO BF 00 8650- 85 06 68 85 07 A0 01 Bi 
83E8- Eé 06 Eé 07 AS 07 C7 10 8520- 20 35 85 C9 D9 FO AF C9 8658- 06 85 24 C8 Bi 06 20 5B 
83F0- O0 DF 85 EF 4C 9C FC 48 8S283- CF F0 AB 38 60 20 45 34 8660- FB C3 Bi 06 FO 06 20 ED 
83F93- 20 1E 84 20 31 34 A4 24 8530- A7 ES E3 F2 E9 F4 FS F2 8668- FD 4C 61 86 18 98 65 06 
8400- A9 20 18 465 07 85 24 68 8539- £S 00 4C 0C 85 A0 00 B1 8670- A8 AS 07 69 00 48 98 48 
8408- 20 33 34 84 24 Eé 06 Es 8540- FA 99 00 02 C3 DO F3 38 8678- 60 

8410- 07 AS 07 C9 08 DO BA 85 8S48- 60 A0 00 B9 00 02 91 FA 

8418- EF A2 03 4C 44 F9 A2 FF 8550- CS DO F8 38 60 20 64 85 





BONJOUR LES PRIX!! 


NOS PRIX SONT F TTC 




















Carte langage 400 Speech card 320 
Carte 128 k ram 1550 Carte horloge 500 
Carte 80 colonnes 700 Joystick 165 
Interface série 520 Ventilateur 280 
Super série 1000 Contrôleur de drive auto switch 13/16 370 
Interface parallèle 380 Microdrive 3” 1900 
Grappler+buffer 16k 1350 Moniteur vert 12” 950 
Carte modem 2200 Disquettes 5” 1/4 S.F./S.D. par 1 boîte 140/boîte 
Carte Z 80 410 Disquettes 5" 1/4 S.F./D.D. par 1 boîte 175/boîte 
Wildcard 400 


AU-DESSUS, NOUS CONSULTER. 


Carte bleue et eurocard acceptées 
Vente par correspondance: nous consulter. 


Computer 


3, rue Papillon 75009 Paris - Tél.: 523.51.15 


(métro Poissonnière) ouverture du lundi au samedi de 10 h à 19 h 30 








16 Pom's n° 15 


L'Enseignement Assisté par Ordina 
teur (E.A.O.) est à la mode actuelle- 
ment, Pom's n'échappe pas à la ten- 
dance en vous présentant ici un 
programme d'éducation sur les fleu 
ves et rivières de France. 


Le programme E.A.O FLEUVES est 
écrit entièrement en Basic. donc faci 
lement modifiable, et propose. à par 


Les fleuves de France 


15 000 000 sur laquelle clignote le 
tracé d'un fleuve, d'en fournir le 
nom exact 


Pas d'affolement ! Le programme ne 
vous demande que 10 noms avant 
de s'arrêter et d'afficher votre score 
Pour les imbattables. il restera la pos- 
sibilité d'augmenter le nombre ‘ de 


Joseph Pino 


Le programme est très simple et ne 
nécessite aucun commentaire particu- 
lier. Le plus pénible sera de rentrer 
toutes les DATA si vous n'avez pas la 
disquette de Pom's 


Une petite colle avant de commen 
cer: savez-vous où se trouvent le 
Blavet et la Truvère ? 


tir d'une carte de France au fleuves disponibles (60 actuellement) 5 
"| 
Programme E.A.O.Fleuves 1°: PRINT : END 
1000 REM ##=« TOUTE LA CARTE #»#« 
100 REM #** E.A.0. GEOGRAPHIE ve 1010 HGR2 : GOSUB 3000: FOR N = 1 TO 59 
: GOSUB 8000: NEXT 
110 HOME : INVERSE : PRINT SPC( 41);: 1020 GET WS: RESTORE :N = O:N2 = O: FOR 
NORMAL : PRINT SPC( 38);: INVERS 1 = O TO SENCI) = O: NEXT : GOTO 
E : PRINT * “;: NORMAL : PRINT “ 500 | | 
E.A.0. GEOGRAPHIE CM2 FLEUV 
000 C 
ES “;: INVERSE : PRINT “ ‘“;: N ; NA CORRECTION RES 
ORMAL : PRINT SPC( 38);: INVERSE 2010 TEXT : VTAB T * 2 + 1: HTAB 1: PRI 


: PRINT SPC( 41): NORMAL : PRIN NT T;: HTAB 3: PRINT * ?...."“:: H 
T TAB 3: INPUT “ “;:RS: IF RS = “?* 


120 CLAVIER = 49152:KBDSTB = 49168:TXTCL THEN GOSUB 9000: GOSUB 4000: GOT 


R = 49232:HISCR = 49237: VTAB 10: 0 2010 

HTAB 1: PRINT * Voulez vous que 2020 TEXT : VTAB T #* 2 + 1: HTAB 1: PRI 

lques explications”: VTAB 12: HTA NT T;: HTAB 4: PRINT AS; SPC( 20) 

B 18: PRINT “*< N >‘: VTAB 12: HTA 5: IF RS = AS THEN VTABT # 2 + 

B 20: GET ws | 1: HTAB 19: INVERSE : PRINT ‘ EXA 
130 IF WS < > “O'' THEN 500 CT “;: NORMAL : PRINT SPC( 10):: 
140 VTAB 9: HTAB 1: PRINT “ Apprenez le EX = EX + 1: GOTO 2040 

non des fleuves de FRANCE et de 2040 VTAB 1: HTAB 28: PRINT “Note : “:E 


leurs affluents en vous anusant. X;"/"3T;: RETURN 
dl 3000 REM ##”# TRACER LA CARTE ### 


150 PRINT SPC( 40): PRINT * Vous t 
aperez au clavier le nom du cour GOSUB 9000: HCOLOR= 3:X0 = 40:YO = 
s d’eau qui clignote sur la carte - S: FOR I = 1 TO 9: READ X,Y: 
® HPLOT X + XO,Y + YO 


160 PRINT : PRINT * 


Je vous demande 3020 READ X,Y: IF X AND Y THEN HPLOT 
10 noms at Je vous donne les 10 TO X + XO,Y + YO: GOTO 3020 
reponses.‘": PRINT 3030 NEXT : RETURN 
170 PRINT * Si vous repondez ’?’ 4000 REM ### FAIRE CLIGNOTER ##» 
comre nom jJereviens en page HGR2 
pour la carte.” 4010 GOSUB 8000: HCOLOR= 3: GOSUB 8000: 
180 PRINT : PRINT “Tapez ’C’ pour voir IF PEEK (CL) > 127 THEN POKE K 
la carte complete.";: GOSUB 10000 B,0: RETURN 
! IF WS = “C"“ THEN GOTO 1010 4020 HCOLOR= O: GOTO 4010 
500 REM ##*# DEBUT ##» S000 REM ###7 TIRER AU SORT ### 


S010 NQ = 59: REM 


$10 TEXT : HOME : VTAB 1: HTAB 4: INVER 
: Nbre Quesationa 


SE PRINT * NOMS ‘“: NORMAL : H 
GR2 : GOSUB 3000: GOSUB 5000: GOS 
UB 4000: FOR T = 1 TO 9: GOSUB 20 S020 N = INT ( RND (1) 
00: GOSUB 10000: GOSUB 9000: GOSU N 


# NQ) + 1:N(T) = 


B 5000: GOSUB 4000: NEXT S030 IF T = O THEN 5060 
S20 GOSUB 2000: GOSUB 10000: GOSUB 9000 S040 FOR S = O TO T - 1: IF N = N(S) TH 
: GOSUB 10000 EN S = T - 1: NEXT : GOTO 5020 
530 TEXT : HOME : VTAB 2: HTAB 3: PRINT 5050 NEXT S 
"Vous avez bien repondu “;EX;" £ S060 VTAB 24: HTAB 10: PRINT SPC( 22): 
ois sur 10“: PRINT : PRINT : HTAB RETURN 
S: PRINT ‘“Voulez vous recommence 6000 REM ### QUESTIONS ### 


r (O=OUI) :";: GET WS: IF WS = “O 
“ THEN RUN 
S40 VTAB 14: HTAB 15: PRINT “AU REVOIR 


6010 AS = "SOMME": HPLOT 165,24 TO 161,2 
7 TO 160,22 TO 150,24 TO 142,18: 
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6020 


6030 


6040 


6050 


6060 


6070 


6080 


6090 


6100 


6110 
6120 
6130 
6140 
6150 


6160 


6170 


6180 


61930 
6200 


6210 


6220 


6230 


6240 


6250 


6260 


RETURN 

AS = "EURE": HPLOT 129,53 TO 138,57 
TO 140,53 TO 137,49 TO 138,46 TO 
134,40 TO 135,37: RETURN 

AS = ‘’LOING‘": HPLOT 164,74 TO 159,7 
2 TO 157,67 TO 158,64 TO 156,61 T 
O 158,58: RETURN 

AS = "YONNE": HPLOT 175,85 TO 174,8 
4 TO 172,84 TO 169,77 TO 171,74 T 
0 169,67 TO 165,65 TO 165,60 TO 1 
63,57: RETURN 

AS = ‘’ARMANCON‘: HPLOT 184,82 TO 18 
2,78 TO 183,77 TO 174,66 TO 169,6 
7: RETURN 

AS = ‘“AUBE‘": HPLOT 193,72 TO 183,61 
TO 181,55 TO 174,52 TO 171,53: R 
ETURN 

AS x ‘“MARNE'": HPLOT 196,68 TO 195,6 


8 TO 195,64 TO 192,63 TO 191,52 T 
O0 185,51 TO 173,43 TO 169,41 TO 1 
63,45 TO 162,44 TO 154,49 TO 152, 
47: RETURN 
AS = "OISE": HPLOT 177,22 TO 168,24 
TO 165,29 TO 161,31 TO 158,33 TO 
147,42: RETURN 
AS = "AISNE": HPLOT 192,45 TO 190,4 
S TO 185,33 TO 178,31 TO 173,35 T 
0 164,35 TO 158,33: RETURN 
AS = “ORNE: HPLOT 120,51 TO 117,49 
TO 113,49 TO 110,44 TO 114,37: R 
ETURN 
AS = RANCE‘: HPLOT 79,57 TO 83,58 
TO 87,57 TO 88,52: RETURN 
AS = ‘’AULNE‘": HPLOT 65,53 TO 62,58 
TO 593,58 TO 54,56: RETURN 
AS = ‘“BLAVET‘": HPLOT 68,55 TO 72,59 
TO 72,63 TO 67,69: RETURN 
AS 2 "VILAINE": HPLOT 103,60 TO 90, 
62 TO 88,71 TO 79,75: RETURN 
AS = ‘"MAINE'‘": HPLOT 108,75 TO 107,7 
8: RETURN 
AS = ‘“MAYENNE‘": HPLOT 114,54 TO 113 
55 TO 110,54 TO 107,56 TO 105,62 
TO 106,70 TO 108,75: RETURN 
AS = "SARTHE": HPLOT 124,52 TO 122, 
54 TO 116,56 TO 116,60 TO 119,67 
TO 111,63 TO 108,75: RETURN 
AS = "LOIR": HPLOT 133,58 TO 136,60 
TO 134,68 TO 130,70 TO 122,72 TO 
118,72 TO 108,75: RETURN 
AS = “NIEVRE": HPLOT 165,80 TO 162, 
88: RETURN 
AS = ‘“ARROUX'‘: HPLOT 182,86 TO 178, 
93 TO 176,100: RETURN 
AS = “ALLIER: HPLOT 171,135 TO 167 
,128 TO 165,115 TO 168,109 TO 166 
97 TO 161,93 TO 162,88: RETURN 
A$ = "CHER": HPLOT 153,112 TO 155,1 
07 TO 155,937 TO 150,92 TO 149,86 
TO 145,82 TO 125,79: RETURN 
AS = ‘“INDRE'‘: HPLOT 150,100 TO 146, 
99 TO 144,94 TO 142,92 TO 135,90 
TO 129,83 TO 120,83 TO 119,81: RE 
TURN 
AS = “VIENNE": HPLOT 147,117 TO 143 
116 TO 136,112 TO 134,114 TO 126 
112 TO 126,100 TO 124,96 TO 124, 
87 TO 118,84 TO 116,81: RETURN 
AS = ‘“CREUSE": HPLOT 148,113 TO 148 
109 TO 140,101 TO 140,99 TO 137, 
97 TO 131,95 TO 127,88 TO 124,87: 
RETURN 


AS = “SEVRE NANTAISE": HPLOT 103,96 


18 


6270 


6280 


6290 


6300 


6310 


6320 


6330 


6340 


6350 


6360 


6370 


6380 


6390 


6400 


6410 


6420 


6430 


6440 


6450 


6460 


6470 


6480 


TO 102,933 TO 94,84 TO 93,82: RET 
URN 

AS = ‘CHARENTE": HPLOT 
19,106 TO 117,116 TO 
05,116 TO 104,112 TO 
RN 

AS = ‘“’DORDOGNE“: HPLOT 
54,119 TO 153,122 TO 
28,135 TO 110,135 TO 
URN 

AS = “VEZERE": HPLOT 147,120 TO 142 
,120 TO 137,124 TO 137,123 TO 134 
129 TO 128,135: RETURN 

AS = “ISLE: HPLOT 134,117 TO 130,1 
20 TO 127,128 TO 124,128 TO 121,1 
31 TO 111,131 TO 110,13S: RETURN 

AS = “LOT‘*: HPLOT 172,142 TO 163,14 
5 TO 155,140 TO 142,144 TO 130,14 
3 TO 128,145 TO 123,144 TO 119,14 
7: RETURN 

A$ = ‘“TRUYERE‘*: HPLOT 170,137 
7,139 TO 165,134 TO 158,135 
5,140: RETURN 

AS = "TARN": HPLOT 173,145 TO 
47 TO 162,152 TO 157,154 TO 
56 TO 140,158 TO 135,152 TO 
S2: RETURN 

AS = AVEYRON": HPLOT 162,147 
8,145 TO 154,147 TO 146,146 
5,151 TO 135,152: RETURN 

AS = “ARIEGE"“: HPLOT 141,186 TO 143 
,185 TO 142,182 TO 139,180 TO 139 
,171 TO 136,169 TO 136,165: RETUR 
N 

AS = "SAVE": HPLOT 122,173 TO 127,1 
69 TO 134,159: RETURN 

AS = “GERS: HPLOT 120,172 TO 123,1 
67 TO 124,158 TO 123,155 TO 125,1 
50: RETURN 

AS = “BAISE: HPLOT 118,176 TO 117, 
172 TO 120,168 TO 119,148: RETURN 


125,115 
114,118 
38,111: 


TO 1 
TO 1 
RETU 


159,119 TO 1 
139,135 TO 1 
105,130: RET 


TO 16 
TO 15 


165,1 
145,1 
130,1 


TO 15 
TO 14 


AS = “ADOUR“: HPLOT 115,178 TO 115, 
175 TO 114,172 TO 113,163 TO 108, 
159 TO 95,160 TO 94,164 TO 30,165 

TO 893,164: RETURN 

AS = “AUDE‘“: HPLOT 147,185 TO 151,1 
72 TO 165,173: RETURN 

AS = "HERAULT": HPLOT 170,151 TO 17 
3,156 TO 169,165 TO 169,170: RETU 
RN 

AS = “GARD‘: HPLOT 173,148 TO 178,1 
49 TO 181,155 TO 187,155 TO 188,1 
57: RETURN 

AS = “ARDECHE: HPLOT 179,139 TO 18 
4,141 TO 182,145 TO 188,149: RETU 
RN 

AS = “SAONE: HPLOT 207,62 TO 205,6 
5 TO 205,72 TO 197,80 TO 196,85 T 
0 191,893 TO 189,92 TO 191,97 TO 1 
88,110 TO 190,112 TO 190,114: RET 
URN 

AS = “DOUBS": HPLOT 210,91 TO 220,7 
8 TO 218,78 TO 218,75 TO 205,84 T 
0 137,89 TO 191,89: RETURN 

AS = “AIN"“: HPLOT 208,92 TO 203,93 
TO 196,113: RETURN 

AS = "ISERE": HPLOT 221,120 TO 218, 
117 TO 215,118 TO 214,115 TO 211, 
118 TO 207,122 TO 204,126 TO 202, 
124 TO 194,131 TO 191,131: RETURN 

AS = ‘“ARC"“: HPLOT 223,122 TO 214,12 
S TO 212,123 TO 211,118: RETURN 
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6490 


AS = "DRAC": HPLOT 213,136 TO 211,1 
38 TO 203,133 TO 204,126: RETURN 


1,145,172,147,172,147,174,153,173 
»155,170,159,171,155,173,161,174, 


6500 AS = “DROME": HPLOT 204,142 TO 200, 160,176,168,180,177,178,178,176,1 
140 TO 199,136 TO 195,138 TO 190, 80,176,181,171,183,172,188,167,18 
137: RETURN 9,164 
6510 AS = “DURANCE“: HPLOT 218,132 TO 21 7050 DATA 191,165,195,162,195,154,185,1 
7,134 TO 217,138 TO 213,143 TO 21 53,182,147,184,140,179,134,185,13 
0,142 TO 208,145 TO 210,150 TO 20 0,185,125,180,118,182,115,180,104 
7,159 TO 201,161 TO 190,155: RETU ,175,104,169,109,0,0,180,104,176, 
RN 101,171,104,169,109,169,101,180,8 
6520 AS = “VERDON‘“: HPLOT 218,147 TO 218 8,182,83,181,80,185,80,187,77,188 
,156 TO 210,159 TO 207,159: RETUR »75,192,55 
N 7060 DATA 197,45,195,45,188,44,185,42,1 
6530 AS = “VAR“: HPLOT 221,147 TO 222,15 81,44,176,41,174,43,171,36,169,36 
4 TO 228,154 TO 228,162: RETURN ,164,36,159,34,156,36,147,29,146, 
6540 AS = “RHIN“: HPLOT 240,72 TO 227,72 22,141,27,137,27,137,20,135,17,13 
TO 227,60 TO 230,48 TO 235,40 TO 1,19,130,16,128,14,127,14,125,15, 
238,33 TO 237,22 TO 233,17 TO 22 123,14,122,9,119,10,116,7,115,5,0 
8,19 TO 225,12 TO 222,10 TO 217,4 ,0 
TO 216,0: RETURN 7070 DATA 147,82,144,72,137,67,135,60,1 
6550 AS = “ILL": HPLOT 225,73 TO 224,72 31,58,123,62,118,63,111,56,112,52 
TO 225,58 TO 227,56 TO 228,50 TO ,107,48,102,49,95,42,83,38,0,0 
230,48: RETURN 7080 DATA 141,140,139,141,136,139,136,1 
6560 AS = “MOSELLE": HPLOT 218,66 TO 216 32,138,132,141,124,137,115,136,10 
,67 TO 203,50 TO 206,47 TO 205,44 5,122,93,121,88,119,86,120,83,116 
TO 206,34 TO 209,31 TO 215,24 TO ,78,104,72,94,82,85,84,79,86,76,8 
220,20 TO 225,12: RETURN 6,70,82,67,83,65,84,58,83,53,87,4 
6570 A# = “MEURTHE": HPLOT 218,59 TO 215 9,87,0,0 
,58 TO 207,50 TO 206,47: RETURN 7090 DATA 89,188,86,189,83,180,86,179,9 
6580 AS = “MEUSE"“: HPLOT 200,65 TO 199,6 2,176,96,170,94,164,90,157,85,155 
4 TO 200,50 TO 192,35 TO 192,32 T ,79,153,79,152,79,150,74,146,70,1 
0 189,27 TO 187,28 TO 184,23 TO 1 46,65,135,0,0,200,101,194,106,191 
86,17 TO 187,12 TO 197,6 TO 199,0 ,106,183,110,180,104,0,0,169,109, 
: RETURN 167,110,163,122,154,118,156,118,1 
6590 AS = “ESCAUT": HPLOT 165,22 TO 163, 50 
22 TO 165,15 TO 168,15 TO 168,12 7100 DATA 119,150,125,149,127,151,136,1 
TO 167,9 TO 165,6 TO 173,0: RETUR 51,138,150,142,148,148,148,154,15 
N 2,159,150,160,148,162,148,165,144 
7000 REM ##*#* CARTE DE FRANCE ##* ,168,141,171,0,0,144,168,145,172, 
0,0,148,165,153,173,0,0 
7010 DATA 115,5,100,10,100,20,102,23,99 | 8000 REM ##*“ AIGUILLAGE #»» 
,22,98,25,93,28,86,29,80,33,78,37 
,83,38,74,42,61,40,59,36,60,34,59 | 8010 IF N > 40 THEN N2 = N - 40: GOTO 8 
r32,54,34,50,32,51,39,54,43,54,54 040 
,57,56,51,57,51,54,49,54,48,57,46 | 8020 ON N GOSUB 6010,6020,6030,6040,605 
,55,41,54,37,57,33,50,26,50,24,53 0,6060,6070,6080,6090,6100,6110,6 
,18,52 120,6130,6140,6150,6160,6170,6180 
7020 DATA 7,54,7,58,13,58,14,61,8,61,13 ,6190,6200,6210,6220,6230,6240,62 
,63,13,65,7,65,11,67,12,69,11,71, 50,6260,6270,6280,6290,6300,6310, 
14,72,15,69,25,75,27,74,30,75,28, 6320,6330,6340,6350,6360,6370,638 
76,29,78,32,78,32,76,36,78,33,79, 0,6390,6400 
34,81,39,80,38,86,41,86,44,84,49, 8030 RETURN 
87,44,86,43,89,46,90,43,95,47,103 | 8040 ON N2 GOSUB 6410,6420,6430,6440,64 
57,108 50,6460,6470,6480,6490,6500,6510, 
7030 DATA 58,116,55,122,60,124,63,128,6 6520,6530,6540,6550,6560,6570,658 
5,135,61,128,57,124,54,143,57,141 0,6590 
,58,144,56,145,55,144,53,146,49,1 | 8100 RETURN 
69,46,172,44,172,51,180,63,185,69 | 9000 REM # VOIR HGR2 SANS EFFACER * 
,185,71,187,82,187,82,184,100,190 
,100,193,105,195,117,195,120,193, 9010 POKE TX,0: POKE HI,0: RETURN 
125.195 10000 VTAB 24: HTAB 10: PRINT “Tapez un 
7040 DATA 125,192,123,191,123,180,125,1 e touche :";: GET W#: RETURN 








78,129,175,130,176,139,169,141,17 


Si vous êtes dans la (4 et oubliez d'acheter Pom's, 
envoyez-nous une E3 et abonnez-vous sans 


Inutile de vous #- ©, les autres numéros de Pom'e 
sont encore disponibles avec leurs disquettes |! 


EE 
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MousePaint est avant tout un logiciel de 
realisation de dessins, fonctionnant sous 


controle de la souris Apple 





Un crayon permet de faire du dessin à 
main levee (si on peut dire … la main est 
posee sur la souris 1) 


AT 


ce n'est pas toujours tres simple, mais 
avec Un peu d'habitude … 


Et en cas d'erreur, il y à là ressource 


de 13 gomme. 


On peut egalement travailler par taches, 
avec la brosse. 


nJ 4 


On peut aussi vaporiser des petits nuages 


du 


Bien sur on peut ecrire: on dispose 
de plusieurs types de caracteres 
Mais pas de caracteres accentues 
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Des formes predefinies permettent de 
tracer des fiqures gecometriques, vides 
ou pleines, avec decors varies. Mais on 
ne peut pas remplir apres coup 





On peut aussi deplacer, dupliquer, faire 
des symetries, … 


A CE 


Il existe enfin des fonctions permettant 
de travailler au niveau du point, ou de 
controler 13 position du dessin dans la 
Pade, d'utiliser une grille pour certains 
traces, .…., et bien entendu des fonctions 
de gestion de disque. 


Une lacune: 

l'absence d'une fonction 
“Catalogue” : on ne sait 
jamais ce qu'il y a sur 

un disque 

La fonction impression EXIGE l'imprimante 


Image Writer. Pour une autre imprimante, 
il faut transiter par le disque. 


EU UNIES 
TL ANNE = 


Un produit bien agreable 
malgre quelques lacunes. 






La version etudiee fonctionne sur les 
modeles II, II+, //e et //c 
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Gestion de fichiers par RWTS et 


Pom's à déjà consacré plusieurs arti- 
cles aux méthodes de gestion de fi- 
chier en DOS 3,3 et, après une lon- 
gue pose dans cette série, nous vous 
en proposons un autre, un peu plus 
complexe dans sa mise en oeuvre 
mais qui devrait vous fournir, du 
moins l'espérons-nous, un système 
relativement rapide et souple pour 
gérer de gros fichiers de données sur 
disquettes 140K. 


Principes généraux 


Il est de notoriété publique que le 
DOS se charge en mémoire à partir 
d'une disquette lorsque l'on met 
l'Apple sous tension où que l'on 
“boote” à chaud. par PR#6 par 
exemple. 

L'implantation du DOS sur une dis- 
quette résulte, de manière générale, 
de son initialisation par la commande 
INIT. À l'issue de cette opération, les 
pistes O, 1 et 2 de la disquette 
contiennent le DOS et ne sont plus 
accessibles pour la sauvegarde de fi- 
chiers ou programmes. 


En fait, cette présence du DOS sur 
toutes les disquettes constitue un 
luxe inutile. Plus particulièrement, en 
matière de gestion de fichiers, on 
peut utiliser fréquemment une dis- 
quette "Programmes", qui se place 
dans le lecteur 1 et assure également 
le “boot” du système, et une dis- 
quette réservée plus spécialement à 
la sauvegarde des fichiers, placée 
dans le lecteur 2. Sur cette seconde 
disquette, le DOS ne représente 
qu'une perte de place pour le sto- 
ckage des informations. 

De même, si l'on n'emploie qu'une 
seule disquette pour programmes et 
fichiers et si l'on ne dispose que d’un 
seul lecteur, il est toujours possible 
de charger le DOS en mémoire à 
partir d'une autre disquette, rempla- 
cée immédiatement après par celle 
nécessaire aux traitements. 


Il serait donc possible d'exploiter les 
3 pistes protégées du DOS pour y 
stocker des informations utiles à la 
gestion de fichiers : nous vous propo- 
sons d'y placer la table de référence 
des enregistrements d'un gros fichier 
de données. Notons de suite que 
ceci ne perturbera pas le fonctionne- 
ment du DOS pour le maniement de 
programmes ou fichiers sur la même 
disquette, puisque les pistes 0, 1 et 2 
sont de toute façon considérées 
comme occupées à l'issue de INIT: 
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LL 


on ne risque donc pas de les ‘’écra- 
ser” en cours de traitement. Par un 
POKE approprié à l'adresse 44723 
(voir Pom's 11), on peut même pro- 
téger ainsi plus de trois pistes pour la 
sauvegarde d'une table de référence, 
et nous y reviendrons ultérieurement. 


Organisation de la table 
de référence 


Nous stockerons dans cette table 


trois types d'informations : 


e La clé d'accès, identifiant chaque 
enregistrement du fichier de don- 
nées et permettant d'y accéder di- 
rectement (le nom d'un client, un 
numéro de dossier...). La longueur 
de cette clé sera fixe, bornée ou 
quelconque, au choix du program- 
meur. De plus, les homonymes” 
(plusieurs clés identiques) seront 
acceptés. 

e Des informations annexes”, sous 
forme d'un certain nombre d'oc- 
tets pouvant servir de critères pour 
des recherches rapides dans la 
table (numéro de département, 
codification de situation de fa- 
mille...) 

e L'adresse de l'enregistrement cor- 
respondant à la clé dans le fichier 
de données. Ge dernier est un fi- 
chier à accès direct DOS 3.3 stan- 
dard. Dans la table de référence, 
cette adresse occupera deux octets 
(ceci autorise des adresses de 0 à 
65535, ce qui est plus que suffi- 
sant). 


Un élément de la table de référence 
se présentera donc de la façon sui- 
vante : 


— Longueur totale ‘clé + informa- 
tions annexes” : 1 octet 

— Longueur de la clé seule : 1 octet 

— Clé d'accès : N1 octets 

— Informations annexes : N2 octets 

— Adresse de l'enregistrement cor- 
respondant : 2 octets 


Gestion de la table de référence 


Pour utiliser les pistes du DOS, il faut 
y accéder directement par la célèbre 
routine RWTS, qui permet de lire ou 
d'écrire un secteur quelconque de la 
disquette, soit 256 octets. 

La table de référence sera donc dé- 
coupée en un certain nombre de sec- 
teurs, 48 (3x16) au maximum si l’on 
utilise les trois pistes du DOS, numé- 
rotés de O à 47. Nous appelerons 
NN le numéro du dernier secteur de 
clé exploitable. 


FÉRTAERTEESS ET 


mn ae 


DOS 3.3 


Gérard Michel 


L'appel à RWTS se fera à partir du 
programme Applesoft de traitement, 
tandis qu'une petite routine en as- 
sembleur s’occupera de la recherche 
d'une clé donnée à l'intérieur d'un 
secteur de clés chargé en mémoire 
dans un buffer. 


Une telle recherche est toujours plus 
rapide lorsque les clés sur lesquelles 
elle porte sont classées dans un ordre 
quelconque, en l'occurrence dans 
l'ordre des codes ASCII des caractè- 
res composant la clé. En revanche, 
les opérations de classement sont gé- 
néralement longues en regard des 
délais d'attente acceptables dans le 
cours de l'exploitation normale du fi- 
chier et il est donc préférable de les 
séparer de cette dernière. 

On peut ainsi se trouver, à un instant 
donné, avec deux types de secteurs 
de clés : 


e Des secteurs de clés classées, dans 
lesquels la recherche sera plus ra- 
pide. Nous appelerons NZ le nu- 
méro du dernier secteur de clés 
classées, avec NZ compris entre 0 
et NN. 

e Des secteurs de clés ‘en vrac”, 
placés à la suite des premiers, 
dans lesquels les nouvelles clés 
ont été stockées simplement dans 
l'ordre chronologique de leur en- 
trée en machine. La recherche 
sera évidemment plus lente sur 
ces secteurs, mais on évite ainsi 
d'imposer à l'utilisateur un délai 
de classement à chaque nouvel 
enregistrement. La variable TT 
contiendra le numéro du dernier 
secteur de ‘vrac’: TT est donc 
compris entre NZ+1 et NN. Dès 
que TT atteint NN+1, la capacité 
de stockage des clés est saturée. 


Un petit programme, indépendant 
des programmes de traitement pro- 
prement dits, permettra à l'utilisateur 
de reclasser les clés en vrac à l'inté- 
rieur des clés classées et de reconsti- 
tuer une table de référence compo- 
sée uniquement de secteurs de clés 
classées. Cette opération sera par 
conséquent réalisée sur l'initiative de 
l'utilisateur, avant de procéder à un 
listage du fichier, par exemple, ou 
dès que les temps de recherche sont 
trop détériorés par le nombre de clés 
en vrac” à explorer. 


En ce qui concerne les clés classées, 
et dans la mesure où la recherche 
porte sur un secteur à la fois, il est 
bon de savoir si possible quel est 
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celui qu'il faut charger de préférence 
en mémoire, c'est-à-dire celui dans 
lequel on aurait une chance de trou- 
ver la clé qui nous intéresse. Pour ce 
faire, on conservera dans un tableau 
N$(NN) la dernière clé de chaque 
secteur classé : N$(0) contiendra DU- 
PONT si DUPONT est la dernière clé 
stockée dans le secteur 0, et ainsi de 
suite. Si l'on cherche une clé quel- 
conque XXXXXX, on lira en mé- 
moire le dernier secteur S pour le- 
quel XXXXXX <= N$(S). Si aucun 
secteur classé ne répond à cette 
condition, on cherchera alors en sé- 
quence dans les secteurs de vrac, et 
de même si l'on ne trouve pas dans 
le secteur classé potentiel S. 


Fichiers manipulés 


Notre système de table de référence 
ne peut gérer qu'un seul fichier de 
données par disquette. Par contre, 
d’autres fichiers de toutes sortes peu- 
vent être utilisés conjointement en 
DOS 3.3 standard. En particulier, 
deux petits fichiers annexes sont né- 
cessaires à la gestion du système : 


e Un fichier contenant les paramè- 
tres de la table de référence : der- 
nier secteur classé (NZ), dernier 
secteur ‘en vrac” (TT), dernière 
adresse attribuée à un enregistre- 
ment (NF), premier octet libre 
dans le secteur de vrac en cours 
(OO), statut de la table vis-à-vis 
du classement (IC, qui vaut O si 
tout est classé, 1 si on à à la fois 
du vrac et du classé, 2 si rien n'est 
classé). Ce fichier est baptisé FP. 

e Un fichier contenant les adresses 
éventuellement libérées par des 
annulations d'enregistrements, et 
baptisé PL. 


Analyse du programme 
de démonstration 


Il s’agit d'un programme classique de 
gestion de fichier, permettant la créa- 
tion, la modification, la consultation, 
l'annulation et la liste d'enregistre- 
ments. Son étude nous aidera à 
comprendre la mise en oeuvre du 
système. 


Principales variables 


e AR: adresse de début de la rou- 
tine en langage-machine de re- 
cherche dans un secteur. 

e ADR: adresse de début de la 
zone où la routine-machine sto- 
ckera les adresses des enregistre- 
ments dont la clé correspond à 
celle que l’on cherche. 

e CLE : adresse du début de la zone 
où le programme POKEra la clé 
recherchée. 

e ASYO: adresse du début de la 
zone où la routine-machine sto- 
ckera les positions dans le secteur 
des clés correspondant à celle que 





l'on cherche. 

e BU: adresse du début du buffer 
en mémoire utilisé par RWTS 
pour lire ou écrire un secteur. 

e LC: adresse où sera POKée la 
longueur de la clé cherchée. 

e RES : résultat de la recherche, soit 
0 si l'on n'a pas trouvé, et le nom- 
bre de clés égales à celle cherchée 
dans le cas contraire. 

e ABL : indicateur de fin de secteur, 
positionné par la routine-machine. 
Si on trouve effectivement une clé 
(au moins) correcte, mais que 
celle-ci est également la dernière 
d'un secteur, la routine mettra 1 
dans l'adresse correspondant à 
ABL. En effet, dans les clés clas- 
sées, rien n'interdit que l'on ait un 
MARTIN. par exemple, à la fin du 
secteur 3, mais aussi d'autres 
MARTIN au début du secteur 4. 
Si ABL vaut 1, il faudra donc exa- 
miner le secteur suivant pour véri- 
fier s'il n'y à pas d’autres clés pos- 
sibles. 

e 10: adresse de début de la table 
IOB pour RWTS. 

e AA: longueur des informations 
annexes qui seront également sto- 
ckées dans la table. 

e DT: adresse de début de la table 
DCB pour RWTS. 

e RWTS: adresse de la routine 
d'appel de RWTS (voir manuel du 
DOS 33 pour l'utilisation de 
RWTS). 

e N°: numéro du secteur courant sur 
lequel on lit ou écrit. 

e C: commande pour RWTS, soit 1 
pour une lecture et 2 pour écri- 
ture. 


Fonctionnement du programme 


Le programme manipule un fichier 
de données DON à accès direct, 
dont la longueur des enregistrements 
est fixée à 100. Il commence par une 
phase d'initialisation, suivie de sous- 
routines, et l'essentiel des traitements 
réalisés porte sur la gestion de la 
table de référence et du fichier. Fi- 
chiers et programmes sont en outre 
placés sur la même disquette, qui ne 
sera donc exploitable que si le DOS 
a déjà été chargé à partir d’une autre 
disquette. 


— Lignes 2 à 13 : initialisation. On 
définit la valeur des différentes adres- 
ses qui assurent le passage de para- 
mètres entre le programme Applesoft 
et la routine-machine de recherche 
de clé (ADR, CLE, ASYO, LC...). On 
fixe également l'adresse d’implanta- 
tion de la routine (AR). Cette der- 
nière est relogeable à ceci près 
qu'elle utilise des tableaux (ADR, 
CLE et ASY0) dont on veut pouvoir 
faire varier la taille et l'adresse de 
début en fonction des besoins, mais 
dont les adresses ont été données de 
manière absolue à l'assemblage de la 
routine. C'est pourquoi la ligne 13 


M RER SES ET 


remet dans le code machine, aux en- 
droits où elles doivent apparaître, les 
adresses réelles correspondant à 
ADR, CLE et ASYO. 

Dans notre exemple, les trois ta- 
bleaux sont à la suite les uns des 
autres à partir de l'adresse $9100, et 
l'on suppose qu'il n'y aura pas plus 
de 8 homonymes par secteur (ADR 
occupe 16 octets, soit 2 par adresse 
retenue, et ASYO en prend 8). 


A la ligne 4, on fixe l'adresse de la 
table IOB et on la constitue en reco- 
piant celle du DOS, qui débute en 
47080. Pour que la table soit cohé- 
rente, il faut donc que le dernier lec- 
teur utilisé juste avant cette copie soit 
bien celui dans lequel se trouve la 
disquette du fichier. Ensuite, on indi- 
que dans la table IOB l'adresse de 
notre table DCB et on POKE dans 
cette dernière les valeurs attendues 
pour nos lecteurs 140K. 

En ligne 5, on implante à l'adresse 
768 la routine d'appel à RWTS. Les 
valeurs 148 et O qui suivent respecti- 
vement 169 (code de LDA) et 160 
(code de LDY) correspondent au 
poids fort et au poids faible de 
l'adresse de début de la table IOB 
(10). Dans notre exemple, le poids 
fort vaut $94, soit 148 en décimal, et 
le poids faible vaut 0. Vous auriez 
donc à modifier ces deux valeurs si 
vous vouliez modifier l'adresse de la 
table IOB. 


Il est possible d'employer toute cette 
partie d'initialisation en modifiant 
l'implantation selon les besoins. Il 
suffit pour cela de donner les valeurs 
qui vous conviennent aux variables 
concernées : AR, ADR, CLE, ASYO, 
BU, IO et les deux octets correspon- 
dant à l'adresse IO dans les DATA 
de la routine d'appel à RWTS. 


— Lignes 15 et 20: lecture des 
deux fichiers annexes et branche- 
ment au programme de traitement 
qui débute à la ligne 100. 


— Lignes 50 et 60 : recherche du 
secteur classé dans lequel la clé cher- 
chée pourrait éventuellement se trou- 
ver. Si la clé est supérieure à toutes 
celles déjà classées, N correspond au 
premier secteur de vrac, soit NZ +1. 


— Lignes 65 et 70 : conversion du 
numéro de secteur en adresse physi- 
que sur disquette (piste P / secteur 
S), puis lecture du secteur en mé- 
moire. 


— Lignes 80 à 86: sous-pro- 
gramme d'appel à la routine-machine 
de recherche et exploitation de ses 
résultats. Lecture du secteur N 
(GOSUB 65) et appel par CALL AR. 
En retour, on a le résultat de la re- 
cherche (R) et la valeur de l’indica- 
teur de fin de secteur (BL = 
PEEK(ABL)). Si ZC$, qui contient la 
clé cherchée, est égal à la dernière 
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clé du secteur N$(N) et que la re- 
cherche donne malgré cela un résul- 
tat nul (R=0), c'est que cette clé 
N$(N) a été annulée depuis le der- 
nier reclassement. Dans la mesure où 
une clé identique pourrait se trouver 
au début du secteur classé suivant, 
on met R à 1 afin d'aller examiner 
celui-ci (voir plus loin les lignes 300 à 
500). 

En ligne 82, on élimine les cas où 
BL pourrait donner une indication 
fausse, c'est-à-dire si l’on a examiné 
le dernier secteur classé alors que 
tout est classé, ou si l'on a examiné 
le dernier secteur de vrac s'il y en a 
(IC>0). 

Les lignes 83 et 84 correspondent à 
la lecture et à l'affichage (GOSUB 
90) de tous les enregistrements dont 
la clé est égale à celle que l’on cher- 
che. À chaque affichage, on de- 
mande à l'utilisateur "EST-CE LE 
BON ?”; une réponse  affirmative 
confirme que l'on a bel et bien 
trouvé, ce que O=1 indiquera par la 
suite. 

Si aucun enregistrement n'est le bon, 
on prend en compte, comme en 80, 
l'éventualité d'une annulation de la 
dernière clé du secteur (ligne 85). A 
l'issue de la ligne 86, R sera nul ou 
non selon que BL vaudra 0 ou non 
(BL > O signifie toujours qu’un ho- 
monyme peut encore se trouver au 
début du secteur suivant celui que 
l'on vient d'examiner). 


— Ligne 90: lecture et affichage 
d'un enregistrement du fichier DON 
d'adresse A. Ligne 95: pose une 
question à réponse ’O” ou 7’N’”. 
Ligne 98: écriture d’un enregistre- 
ment du fichier DON d'adresse A. 


— Lignes 120 à 130 : introduction 
de la clé au clavier, puis POKESs aux 
adresses nécessaires pour la routine- 
machine. La longueur de la clé est 
quelconque, à la seule réserve près 
qu'elle ne doit pas excéder les capa- 
cités du système de gestion des clés. 


— Ligne 200 : NZ=-1 si on est à 
la toute première utilisation du pro- 
gramme (voir plus loin l’initialisation 
d'une disquette fichier). Inutile donc 
de chercher dans ce cas, et le pre- 
mier secteur de vrac à constituer est 
le secteur 0 de la piste O. 


— Lignes 300 à 500 : appel et ex- 
ploitation de la sous-routine 80-86 
en fonction du statut du système vis- 
à-vis du classement (IC). Aux numé- 
ros de lignes près, cette partie pour- 
rait être utilisée sans changements 
dans tout autre programme. 


— Lignes 700 à 740: mise en 
place des éléments d'une nouvelle 
clé dans le secteur de vrac courant. 
Les trois octets d'informations an- 
nexes sont donnés par les trois der- 
niers éléments du tableau ZY$. 
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On calcule d'abord la longueur totale 
LT. Chaque clé occupe LT octets, 
plus 2 pour les deux longueurs sto- 
ckées, plus 2 pour l'adresse de l'en- 
registrement: elle sera en outre suivie 
d'un O lors de son entrée dans le 
secteur, afin de marquer la fin des 
données utiles pour ce dernier. Il faut 
donc LT+5 octets libres dans le sec- 
teur courant pour y mettre notre 
nouvelle clé, ce que l’on vérifie tout 
d'abord. Si tel n’est pas le cas, il faut 
ouvrir” un nouveau secteur de vrac, 
dans la mesure où le nombre de 
pistes disponibles le permet (lignes 
710 et 715). 

On peut ensuite POKETr les octets et 
mettre à jour la position du premier 
octet libre dans le secteur (OO). Par 
précaution, le secteur ainsi modifié 
est aussitôt recopié sur disquette 
(C=2 : GOSUB 65). 


— Lignes 820 et 840 : modification 
dans la table de référence. SB donne 
la position dans le buffer du premier 
caractère de la clé sélectionnée, posi- 
tion qui a été indiquée par la routine- 
machine. On remplace donc les in- 
formations annexes éventuellement 
modifiées avant de ré-écrire le sec- 
teur. 


— Ligne 980 : pour marquer l'an- 
nulation d'une clé, on remplace son 
premier caractère par un Ü, ce qui 
garantit qu'elle ne sera pas retrouvée 
par la routine de recherche. Par 
contre, sa disparition effective de la 
table ne sera réalisée qu'à l'issue du 
reclassement. 


— Lignes 2000 à 2999 : fin et sor- 
tie du programme. 


— Lignes 3000 à 3070 : liste et affi- 
chage des enregistrements dont les 
clés sont actuellement classées. On lit 
successivement les secteurs depuis 
N=0 jusqu'à N=NZ (sauf si l'utilisa- 
teur arrête avant). Dans chacun de 
ces secteurs, on récupère les don- 
nées de chaque clé non annulée 
(PEEK (BU+SB) <> 0), on lit l'en- 
registrement correspondant et on l’af- 
fiche à l'écran. 


Programmes annexes 


Initialisation d’une 
disquette ”’fichier” 


Vous pouvez utiliser un programme 
comparable au programme INIT listé 
ci-après, afin de donner aux paramè- 
tres du système les valeurs correctes 
pour une toute première utilisation. 

C'est dans un tel programme que 
vous pouvez par ailleurs réserver plus 
de 3 pistes pour votre table de réfé- 
rence. Pour disposer de N pistes, 
faites un ’POKE 44723, 4xN” avant 
la commande INIT, puis ‘’POKE 
44723, 12° juste après pour rétablir 
le standard du DOS. Pour N pistes, 


le dernier secteur de clés accessible 
sera NN = 16%N — 1. 


Classement des clés 


L'essentiel du travail est réalisé par 
une routine-machine, appelée (CALL 
4096) par le programme Applesoft 
baptisé CLAS. Ce programme fournit 
à la routine les paramètres nécessai- 
res : 


e AC: adresse-mémoire à partir de 
laquelle seront chargés en sé- 
quence tous les secteurs de clés 
classées. 

e AN: adresse à partir de laquelle 
seront chargés en séquence tous 
les secteurs de vrac. 

e L'adresse du buffer qui sera utilisé 
pour reconstituer les secteurs clas- 
sés et les écrire sur disquette est 
POKée en 24 (poids faible) et 25 
(poids fort). 

e Le statut par rapport au classe- 
ment (mixte ”’classé/vrac” ou "rien 
de classé”) est POKé en 214. 

e PC et SC donnent l'adresse sur 
disquette du dernier secteur de 
clés classées, tandis que PF et SF 
donnent le même renseignement 
pour le dernier secteur de vrac. 


Au retour de la routine, le pro- 
gramme récupère les paramètres du 
système reclassé et constitue notam- 
ment le tableau N$ des dernières clés 
de chaque secteur. 


Tel qu'il vous est présenté, le pro- 
gramme suppose que la disquette fi- 
chier se trouve dans le lecteur S6-D2 
au moment de son lancement. Si 
vous voulez l'utiliser avec une dis- 
quette dans le lecteur S6-D1, rajou- 
tez "POKE 5357,1” après le charge- 
ment de la routine CLAS.OBJ. 

À noter que le fonctionnement de la 
routine-machine suppose que l'on 
puisse charger tous les secteurs de 
clés en même temps dans la mé- 
moire centrale. Le buffer utilisé, juste 
au-dessus de la routine elle-même, 
va de $1500 à $15FF, soit 5376 à 
5631. Le nombre maximum de sec- 
teurs autorisé est donc : INT((38400 
— 5631) / 256), soit 128, de O0 à 
127, ou encore 8 pistes complètes, 
ce qui fait déjà beaucoup, bien qu'il 
soit difficile de savoir combien d'oc- 
tets sont perdus à la fin de chaque 
secteur du fait qu'on ne peut pas 
toujours y stocker un nombre rond 
de clés. Si on suppose par exemple 
que toutes les clés sont formatées à 
15 caractères, plus 4 octets d'infor- 
mations annexes, ce qui représente 
donc 15+4+4 octets par élément de 
la table, on pourrait gérer par ce sys- 
tème un fichier de plus de 1400 en- 
registrements, si la place disponible 
sur le reste de la disquette le permet. 
Sur ce dernier point, ajoutons encore 
que, bien que cela soit sans doute 
moins pratique, rien ne s'opppose à 
ce que la disquette du fichier de don- 
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nées se trouve dans un lecteur et moire et compare chaque octet l'on à ainsi transféré dans le buffer 


celle de sa table de référence dans d'une clé à l’octet de même rang de et ré-écrit sur disquette dans des 
un autre. Dans ce cas, il faut songer la clé recherchée. Elle ne passe à la secteurs classés toutes les clés qui 
à appeler le lecteur contenant la dis- clé suivante, en considérant que la étaient déjà classées et toutes les 
quette table” avant de recopier la comparaison a échoué, que si un nouvelles clés précédemment sto- 
table I0B du DOS dans le pro-  octet diffère (test BNE) ou si tous les ckées en vrac. 

gramme de traitement (voir ligne 4 octets sont identiques mais avec une ; 

du programme de démonstration). différence entre la longueur des deux Conclusion 

En outre, il sera bon de prévoir une clés comparées Ce système de gestion de fichiers 
boucle d'attente avant l'écriture ou la U , 
lecture des secteurs de clés par  Routine de classement nous semble présenter des points po- 
RWTS, car le passage trop rapide sitifs qui peuvent justifier son emploi 
d'u tou à Poe peut générer Elle se charge de la lecture en mé- dans certaines de vos applications : 
des erreurs du type ‘l/O ERROR" Hubs de tous ee de Es — Movyennant un reclassement pério- 
(dans notre programme de démons- Roques ae e principe utilisé dique de la table de référence, les 


tration, l'ajout d'une boucle "FOR temps d'accès aux enregistrements 
Z=1 TO 100: NEXT' à la fin de la e Rechercher la plus petite clé du sont très acceptables, même sur des 


ligne 65 ferait l'affaire). vrac, la mettre dans une zone à fichiers de taille conséquente. 

Par ailleurs, si les secteurs sont nom- part et signaler le fait en rempla- — Avant de commencer à ‘travail- 

breux et les clés longues, il peut ne çant sa longueur par $FF dans son ler”, il n'est pas nécessaire d'attendre 

pas V avoir assez de place sous le enregistrement. que se charge en mémoire, à partir 

"HIMEM:4095" pour constituer le ta- © Prendre la première clé classée et d'un fichier important, une table de 

bleau N$ sans écraser le programme la comparer à la plus petite du référence sous forme de tableau Ap- 

de classement. Il faudrait alors modi- vrac. Les données de la plus petite plesoft. La lecture des fichiers an- 

fier ce dernier afin d'écrire les derniè- des deux sont copiées dans le buf- nexes FP et PL ne représente plus 

res clés de chaque secteur dans le fi- fer alloué à la constitution de sec- qu'un délai d'attente minime. 

chier FP au fur et à mesure de leur teurs classés. Dès que ce buffer est — La mémoire centrale n'est pas en- 

obtention, plutôt que de les regrou- plein, on l'écrit sur la disquette en combrée par la table de référence 
; per d'abord dans un tableau en mé- notant la toute dernière clé qu'il des enregistrements, d'où gain de 
# moire. contient, et on passe au secteur place pour vos programmes et réduc- 
Fe suivant en repartant au début du tion des problèmes de ‘nettoyage 
Routines en assembleur Duser | Le mémoire”. 

e Si la plus ite est une clé - : 

Nous vous laissons le soin d'en sée. Es res ra nt En revanche, l'exploitation de cette 
; conduire une analyse détaillée à son avec la clé classée suivante. Si méthode dans vos traitements est 
£ l'aide des commentaires qu elles c'est la clé “vrac” qui a été mise sans doute plus complexe. qu'une 

comportent et nous bornerons ici à dans le buffer, on va chercher la geelon “uriquement, réalisée se 

indiquer leurs principes généraux de nouvelle plus petite clé du vrac et DOS 3.3 + Applesoft . Nous espé- 

fonctionnement. on reprend la comparaison avec la rons cependant que l'analyse du pro- 


même clé classée gramme de démonstration, dont les 


Routine de recherche dans un e A l’occasion de ces opérations, les parties principales peuvent être repri- 
Étoin clés annulées ne sont pas prises ses à quelques adaptations près pour 
Afin d'appliquer la même démarche en compte et ne sont jamais re- d'autres programmes, VOUS permet 
aux clés classées ou en vrac, la rou- portées dans le buffer. Elles dispa- de trouver dans cet article une aide 
tine n'utilise aucun algorithme de re- raissent donc de la table de réfé- efficace pour vos problèmes de fi- 
cherche. Elle traite en séquence rence. Chiers. 
toutes les clés du secteur lu en mé- e Le classement est terminé lorsque #3 
————————————————— 
Programme TEST ,0C: NEXT : DATA 169,148,i4 
0,0,32,217,3,96 
1 HIMEM: 9 »* 4096 - 1 10 D$ = CHR$ (4):D1$ = CHRS (13) + 
2 AR = 9 # 4096:ADR = 9 »* 4096 + 25 CHR$ (4): PRINT D$"BLOAD REC. 
é:CLE = ADR + 16:ASY0 = CLE + OBJ ,A"AR:RUS = D1$ + “PRHO" :NN 
236:HS = INT (CASYO / 256):LS = = 47: DIM NSC(NN) 
ASYO - 256 # HS:HD = INT (ADR 13 POKE AR + 21,LL: POKE AR + 22,H 
/ 256):LD = ADR - 256 #*# HD:HL L: POKE AR + 59,LD: POKE AR + 
æ= INT (CLE / 256):LL = CLE - 60,HD: POKE AR + 66,LD: POKE À 
256 *# HL R + 67,HD: POKE AR + 42,LS: POKE 
3 LC = 6:BU = 9 # 4096 + 5 »# 256:HB AR + 43,HS 
æ INT (BU / 256):LB = BU - 2 15 PRINT D$"OPEN FP": PRINT D#8"REA 
S6 * HB: POKE 8,LB: POKE 9,HB D FP*3: INPUT NZ,NF,TT,00,1C: FOR 
4 RES = 26:ABL = 29:10 = 9 # 4096 + 1 = O0 TO NZ: INPUT N#CI): NEXT 
256 * 4:AA = 3: FOR I = 0 TO 1 3 PRINT D$"CLOSE": DIM PLZ(20) 
6: POKE IO + I, PEEK (47080 + 
13: NEXT :DT = 10 + 17:DH = INT 20 TEXT : HOME : PRINT D$"OPEN PL" 
(DT / 256) :DL = DT - 256 * DH: : PRINT D$"READ PL": INPUT PL: 
POKE 10 + 4,DL: POKE 10 + 7,D FOR I = 1 TO PL: INPUT PLZ(1) 
H: POKE 10 + 17,0: POKE 10 + 1 : NEXT : PRINT D#"CLOSE": PRINT 
8,1: POKE 10 + 19,239: POKE 10 D$"OPEN DON,L100": PRINT RUS$: GOTO 
+ 20,214 100 
S POKE 10 + 3,0:RUTS = 768: FOR I = SO FOR I = O TO NZ: IF 2$ < = N#$« 
0 TO 7: READ OC: POKE RUTS + I 1) THEN N = I:1 = NZ: NEXT : RETURN 
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60 NEXT :N = NZ + 1: RETURN 
65 P = INT (N / 16):S = N - 16 x P 


70 POKE 10 + 4,P: POKE 10 + 5,S: POKE 
10 + 9,HB: POKE 10 + 8,LB: POKE 
10 + 12,C: CALL RWTS: RETURN 

75 PRINT : INVERSE : PRINT 2M$;: NORMAL 
: GET 28%: PRINT RETURN 

80 C = 1: GOSUB 465: CALL AR:R = PEEK 
(RES) :BL = PEEK (ABL)D:RI = 0: 
0 = 0: IF R = 0 AND ZC$ = N#$(N 
> AND N € NZ THEN R = 1: RETURN 


81 IF R = O0 THEN RETURN 
82 IF (CN = NZ AND IC < 2) OR (TT = 
N AND IC > 0) THEN BL = 0 
83 J = 2 *# RI:A = PEEK (ADR + J) +* 
2356 + PEEK (ADR + J + 1): GOSUB 
90:2M$ = "EST-CE LE BON": GOSUB 
95: IF O$ = "O0" THEN RI = RI + 
1:0 = 1: RETURN 
84 RI = RI + 1: IF RI < 
83 
85 IF 2C$ = NSCN) AND N < 
R = 1: RETURN 
86 R = R * BL: RETURN 
90 PRINT D$"READ DON,R'"A: FOR I = 
0 TO 6: INPUT ZY$#(I1): NEXT : PRINT 
RUS: PRINT : UTAB 12: FOR I = 
0 TO 6: PRINT * ";32ZY8(1);: CALL 
— 868: PRINT : NEXT : PRINT : 
RETURN 
95 PRINT : INVERSE : PRINT 2M$;: NORMAL 
: INPUT * ? *;:0$: IF 08% < >" 
O0" THEN O$ = "N°" 
96 RETURN 
98 PRINT D$"WRITE DON,R'"A: FOR I = 
0 TO 6: PRINT ZY$(I1): NEXT : PRINT 
D$"PR#O": RETURN 
100 HOME : PRINT “1 -— CREATION": PRINT 
“2 - MODIFICATION": PRINT "3 - 
CONSULTATION": PRINT “4 — ANN 
ULATION® : PRINT “5 - LISTE": PRINT 
“é - FIN": PRINT : INPUT "UVOTR 
E CHOIX : ";CH: IF CH < 1 OR C 
H > 6 THEN 100 
110 IF CH = 6 THEN 2000 
115 IF CH = 5 THEN 3000 
120 UTAB 10: HTAB i: INPUT "CLE ? 
“":2$%: IF 2$ = “" THEN 100 
125 2C$ = 2%: IF LEN (28) > (250 - 
AA) THEN 120 
130 L = LEN (Z$): POKE LC,L: FOR I 
= 1 TO L: POKE CLE + I - 1, ASC 
C MIDS (2$%,1,1)2): NEXT 
200 IF NZ = - 1 THEN R = 0:P = 0: 
S = 0: GOTO 600 
210 CI = IC + 1: ON CI GOTO 300,400 


= R - 1 THEN 


> NZ THEN 


, 500 
300 GOSUB 50: IF N < = NZ THEN 31 
0 
305 N = TT:C = 1: GOSUB 65:R = 0: GOTO 
600 


310 GOSUB 80: IF R = 0 THEN 305 

315 IF O0 = 1 THEN 600 

320 N = N + 1: GOTO 310 

400 GOSUB 50: IF N > NZ THEN 440 

410 GOSUB 80: IF O = 1 THEN 600 

420 IF R = 0 THEN N = NZ + 1: GOTO 
440 

430 N = N + ji: GOTO 410 

440 GOSUB 80: IF O = 1 THEN 600 

450 IF N = TT THEN 600 

460 N = N + 1: GOTO 440 
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500 N = 0: GOTO 440 

600 (ON CH GOTO 650,800 ,900,950 

650 VTAB 8: HTAB 20: PRINT *“CREATI 
ON “3: IF O = 1 THEN 800 

660 UTAB 12: HTAB 1: FOR I = 0 TO 
6: INPUT ZY#(I1): NEXT : IF  LEN 
CZY$(4)) > 1 OR LEN (2ZY#(S5)) > 
1 OR LEN (2Y$#(6)) > 1 THEN 66 
0 

670 IF PL < > O0 THEN À = PLÆCPL): 
PL = PL - 1: GOTO 4690 

680 NF = NF + 1:44 = NF 

6790 GOSUB 98 

700 LT = L + AÂ: IF 00 + LT + 5 < = 
255 AND TT < NN + 1 THEN 720 

710 TT = TT + 1:00 = 0: IF TT > NN THEN 
ZM$ = “PLUS DE PLACE": GOSUB 7 
S:TT = NN + 1; GOTO 100 


71SN = TT:C = 1: GOSUB 45 

720 2B = BU + O0: POKE ZB,LT: POKE 
2B + 1,L: FOR I = 1 TO L: POKE 
2B + 1 1, PEEK ÇCCLE + I -— 1) 


+ 
3: NEXT : FOR I = 4 TO 6: POKE 
+ 1 —- 2, ASC (ZY#CI1)): NEXT 


725 POKE 2B + LT + 2, INT (A / 256 
>: POKE 2B + LT + 3,A - 256 * 
INT (A / 256): POKE 2B + LT + 
4,0 
730 00 = 00 + LT + 4:C = 2: GOSUB 6 
S:1C = 1 + (IC = 2): IF NZ = - 
1 THEN NZ = 0 
740 GOTO 100 
800 UTAB 8: HTAB 20: PRINT "MODIFI 
CATION "* 
810 IF R = O THEN ZM$ = "N’EXISTE 
PAS": POKE 34,9: HOME : TEXT : 
GOSUB 75: GOTO 100 
815 VTAB 12: HTAB 1: FOR I = 0 TO 
6: INPUT ZY$(I1): NEXT : IF LEN 
(ZY#(4)) > 1 OR LEN (ZY#(5)) > 
1 OR LEN (ZY#(6)) > i THEN 81 
5 
820 GOSUB 98:5B = 
- 1) 
840 FOR 1 = 4 TO é: POKE BU + SB + 
L + I - 4, ASC (ZYS(I)): NEXT 
:C = 2: GOSUB 65: GOTO 100 
900 UTAB 8: HTAB 20: PRINT "CONSUL 
TATION “: IF R = 0 THEN 810 
910 UTAB 22:ZM8$ = "APPUYEZ SUR UNE 
TOUCHE": GOSUB 75: GOTO 100 
950 UTAB 8: HTAB 20: PRINT "ANNULA 


PEEK CASYO + RI 


TION “3: IF R = 0 THEN 810 

955 PL = PL + 1:PLZACPL) = À 

960 SB = PEEK (ASYO + RI -— 1) 

980 POKE BU + SB,0:C = 2: GOSUB 45 
: GOTO 100 

2000 PRINT D1$"CLOSE": PRINT D$"OP 
EN FP°3: PRINT D$"WRITE FP°": PRINT 
NZ: PRINT NF: PRINT TT: PRINT 
00: PRINT IC: FOR I = 0 TO NZ: 
PRINT N#CI1): NEXT : PRINT D#$"* 
CLOSE" 

2010 PRINT D$"OPEN PL": PRINT D$"W 
RITE PL®: PRINT PL: FOR I = 1 TO 
PL: PRINT PLXÆCI): NEXT : PRINT 
D$" CLOSE" 

2999 END 

3000 N = 0 


3010 C = 1: GOSUB 45:SB = 2 
3020 Li = PEEK (BU + SB - 2): IF L 
1 > O THEN 3050 


Re _  _ _ _* 
25 








3030 N=N + 1: IF N < = NZ THEN 3 
010 

3040 GOTO 2000 

3050 L2 = PEEK (BU + SB - 1):2$ = 

“": IF PEEK (BU + SB) = O0 THEN 
SB = SB + Li + 4: GOTO 3020 

FOR I = 0 TO L2 - 1:2$% = 28 + 
CHR$ € PEEK (BU + SB + 1)): NEXT 
1A = 256 * PEEK (BU + SB + Li 

) + PEEK (BU + SB + Li + 1): VTAB 
10: HTAB 1: PRINT 2$%;: CALL - 
868: PRINT :SB = SB + Li + 4 
GOSUB 90: GET 2%: IF 28 = *"S* 
THEN 2000 

PRINT : GOTO 3020 


3055 


3060 


3070 


Programme CLAS 


S HIMEM: 4095 

7 DIM NS(47) 

10 D$ = CHR$ (4): PRINT D#"BLOAD C 
LAS.0BJ": PRINT DS$"OPEN FP": PRINT 
DS"READ FP*: INPUT NZ,NF,TT,00 
,11: FOR I = 0 TO NZ: INPUT NS 
(1): NEXT : PRINT D$"CLOSE" :AA 
= 3 

20 IF II = O0 THEN END 

25 NZ = NZ + 1:TT = TT + 1 

30 AC = 38400 - 256 # NZ:AN = AC - 
CCTT - NZ) # 256): POKE 6,0: POKE 
7,AC / 256: POKE 8,0: POKE 9,A 
N / 256: POKE 24,0: POKE 25,21 
: POKE 214,11 - 1 

33 POKE 26,0: POKE 28,0 

35 NZ = NZ - 1:TT = TT - 1 

40 PC = INT (NZ / 16):SC = NZ - 16 





Programme REC.SCE 


À 5626 3 26 DE DE DE 6 DE DE EE DEEE DE EE D EE DE EEE EX 
2 3% * 
3 ;* RECHERCHE D'’UNE CLE * 
4 ;%* (LISA 1.5) * 
5 ;* CODE = REC.OBJ * 
é ;* * 
7 5 262626 6 DE EEE DEEE NE DEEE EE EE NE EEE EE EE 
8 ; 
9 ORG +$97000 
10 0BJ $5800 
11 LC EPZ $é 3; LONGUEUR 
DE LA CLE 
12 INB EPZ $8 ; ADRESSE 
DU BUFFER 
13 LC2 EP2Z #18 3 LONGUEUR 
DE LA CLE LUE DANS LE BUFFER 
14 LT2 EPZ #19 ; LONGUEUR 
TOTALE CLE LUE DANS BUFFER 
15 RES EPZ $1A 3: RESULTAT 
RECHERCHE/NBRE CLES POSSIBLES 
16 SY EPZ $1B ; POSITION 
CLE TROUVEE DANS BUFFER 
17 ABL EPZ $10D ; DRAPEAU 
“FIN DE BUFFER" 
18 LDX #0 
19 STX RES 
20 ST*X ABL 
21 LDY #0 5==) 1ERE 
CLE DU BUFFER 
22 LDA CINB),Y 


26 


# PC:PF = INT CTT / 16):SF = 
TT - 16 * PF: POKE 30,PC: POKE 
31,SC: POKE 206,PF: POKE 207,S 
F 


0 TO NZ:N#(I 


S0 CALL 4096: FOR I 
) = °°: NEXT 

é0 P = PEEK (235):S = PEEK (236): 
NZ = (P # 16) + S — 1: FOR I = 
0 TO NZ:B = PEEK (768 + 2 *# I 
):SY = PEEK (769 + 2 * I):B = 
B *# 256 + SY:J = O0O:L = PEEK ( 
B - 2) - AA 

70 N$CI) = NSCI) + CHR$S ( PEEK (B + 
J)):J = J + 1: IF J < L THEN 7 
0 

80 NEXT :TT æ NZ + 1:11 = 0:00 = 0 
: PRINT : PRINT D$"OPEN FP": PRINT 
DS"WRITE FP*: PRINT NZ: PRINT 
NF: PRINT TT: PRINT O0: PRINT 
11: FOR I = 0 TO NZ: PRINT N$<« 
1): NEXT : PRINT D$#"CLOSE": PRINT 
DS"PRHO" 


Programme INIT 


5 NN = 47 

10 D$ = CHR$ (4): PRINT D$"INIT H 
ELLO": PRINT D$"OPEN FP°: PRINT 
D$*"WRITE FP°"3: PRINT - 1: PRINT 
0: PRINT 0: PRINT O0: PRINT 2: 
2% = “": FOR I = 0 TO NN: PRINT 
Z$: NEXT 

20 PRINT D$"OPEN PL": PRINT D$"UR 
ITE PL": PRINT 0: PRINT 0: PRINT 
D$"CLOSE": PRINT D$"PR#KO" 


23 52 STA LT2 

24 INY 

25 LDA CINB) ,Y 

26 STA LC2 

27 INY 

28 STY SY ; POSITION 

DEBUT DE CLE 

29 50 LDA CLE,X ; COMPARAI 
SON CLE/CLE DU BUFFER 

30 CMP CINB) ,Y 

31 BNE 53 

32 INX 

33 INY 

34 CPX LC ;FIN DE L 
A CLE ? 

35 BNE SO 

36 CPX LC2 ;MEME LON 
GUEUR QUE CLE DU BUFFER ? 

37 BNE S3 

38 LDX RES 

39 LDA SY 

40 STA 5Y0,X ; POSITION 

CLE POSSIBLE DANS BUFFER 

41 LDA RES 

42 Si INC RES 

43 ASL 

44 TAX ;X=2%A 

45 LDA SY 

46 CLC 

47 ADC LT2 

48 TAY 

49 LDA CINB) ,Y ; STOCKAGE 
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ADRESSE DE L’ENREGI STREMENT 
s0 STA ADR, X 
si INY 
52 INX 
53 LDA CINB) ,Y 
sq STA ADR, X 
ss LDX #0 
5é INY 
57 LDA CINB) ,Y 
sg BNE S2 3SI ©) 0 
-) RESTE DES CLES À EXAMINER 
59 LDA #1 ;1 DES CL 
ES POSSIBLES EST EN FIN BUFFER 
60 STA ABL ;AUTRES P 
OSSIBLES SUR SECTEUR SUIVANT 
61 RTS 
62 53 LOX #0 ; PASSAGE 
A LA CLE SUIVANTE 
63 LDA SY ;ÿDANS LE 
BUFFER 
64 CLC 
65 ADC LT2 
66 ADC #2 
7 TAY 
68 LDA CINB),Y 
69 BNE 52 
70 RTS 
71 ADR DFS #10 ADRESSES 
DES ENREGISTREMENTS 
72 CLE DFS $FF ;CLE RECH 
ERCHEE 
73 SYO DFS #8 ; POSITION 
S DES CLES POSSIBLES 
74 DCM "INT" 
75 END 





Programme CLAS.SCE 


5 RENE HUE DEEE EE DE HE A EEE EN 6 6 6 6 


5 * ROUTINE DE RECLASSEMENT 
5 * (LISA 1.5) 
3 * CODE = CLAS.0BJ 


XX X x *X 


DA MH EE DE DE DE HE DE EE DE DE EE D 6 EE JE 36 DE 36 6 6 6 6 EE 


— © 0 © JO O1 B ( MN — 
* 


ORG #1000 

1 0BJ $800 
11 2CC EPZ $4 

NE CLES CLASSEES 
12 2ZCT EP2 $8 

NE CLES "EN VRAC" 
13 BUF EPZ #18 

DU BUFFER 
14 ZCCP EP2Z $1Â 

NES "DE TRALAIL" 
15 ZCTP EPZ $1C 
1é PFC EPZ #$1E 

= PISTE/SECTEUR DU 
17 SFC EPZ $1F 

SECTEUR CLASSE 
18 PFT EPZ $CE 

= PISTE/SECTEUR DU 
19 SFT EPZ $CF 

SECTEUR "EN VRAC" 
20 IC EP2Z $Dé 

LES/CLASSEMENT (0/1) 
2i LU EPZ $D7 

"UTILE" DE LA CLE 

22 P EPZ $EBR 
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;DEBUT 20 
;DEBUT 20 
; ADRESSE 


3 DEBUT 20 
y 
3PFC/SFC 
; DERNIER 
3 PFT/SFT 
3 DERNIER 
>STATUT C 


3 LONGUEUR 


S 
LC 


ZT 
LC 


Sz 
S2z 
SY 
SY 
LC 
SY 
CL 


SX 


54 


si 


SS 


STE/SECTEUR POUR RUTS 


EP2Z 
EP2 


$EC 
$ED 


TOTALE DE LA CLE 


PP EPZ 
T EPZ 


TALE + PETIT CLE DU VRAC 


C EP2Z 


$EE 
$EF 


F9 


"FIN ZONE CLASSEE" 


T 


EPZ $FA 


"FIN ZONE UVRAC" 
C EPZ $FB 


"DEBUT CLE" 


ca EPZ $FC 
+ GRANDE CLE DANS SON BLOC 


T2 


EPZ $FD 


TALE D’UNE CLE DU VRAC 


B EP2 


$FE 


; LONGUEUR 


;LONG. TO 
; POINTEUR 
; POINTEUR 


; POINTEUR 


DANS BLOC CLASSE 


; POSITION 
;LONG. TO 


; POINTEUR 


DANS BUFFER RECOPIE/DISQUETTE 


EMAX EQU 


$300 


; STOCK. D 


ERNIERE CLE/CHAQUE SECTEUR 


C EP2Z 
DANS LA 
LDA 


$FF 
ZONE 
#1 


"CLEMAX" 


; POINTEUR 


;INITIALI 


SATION PARAMETRES POUR RUTS 


LDX 
STA 
LDA 
STA 
LDA 
BNE 


#$C 
10B,X*X 
ZCT+1 
ZCTP+1 
IC 

S7 


RIEN N’EST CLASSE 


LDA 

NE 
STA 

LDA 

STA 

STA 

LDX 
SERVIRA 
STX 

LDA 

STA 

INX 

LDA 


ZCC+1 


“NON CLASSE" 


ZCCP+1 

#0 

P 

S 

#8 

POUR LA SUITE 
CMINT 

ZCC 

10B,X 


ZCCP+1 


DES PISTES CLASSEES 


STA 
JSR 
LDY 
LDX 
CPY 
BNE 
CPX 
BEQ 
CPX 
BNE 
INY 
STY 
LDX 
BEQ 
INX 
STX 
INC 
LDX 
JMP 
0 INC 


10B,X 
RUTS 
P 

s 

PFC 
S1 
SFC 
550 
#$F 
S2 


P 
#0 
S3 


s 
ZCCP+1 
#9 

54 
ZCCP+1 


FIN DE ZONE 


LDA 
STA 
INX 


ZCCP+1 
SzC 


;ÿDEBUT 20 


;CMINT <>0 


; LECTURE 


; POINTEUR 


; PASSAGE 


AU PREMIER SECTEUR DU VRAC 


CPX 


L DES SECTEURS SUIVANTS 


#$10 


;ET CALCU 





27 








28 


S7 LDA #0 


s8 LDA 2CTP+1 


510 


BNE Sé 
INY 

STY P 
LDX #0 


Sé STX S 


JMP S8 
;ON ARRIV 
E LA SI RIEN N’EST CLASSE 
STA P 
SECTEUR VRAC = 0/0 
STA S 


; PREMIER 


3; LECTURE 
DES SECTEURS DE CLES EN VRAC 

LDX #9 

STA 10B,X 

JSR RUTS 

LOY P 

LDX S 

CPY PFT 

BNE S9 

CPX SFT 

BEQ Si0 


S9 INC 2CTP+1 


JMP S5 
INC 2ZCTP+1 :M.A.J, P 
OINTEUR FIN DE ZONE 
LDA 2ZCTP+1 
STA SIT 
LDA HO 
STA SXC 
STA P 3 ECRITURE 
À PARTIR DE PISTE O0O/SECTEUR 0 
STA S 
STA SYB 
LDA #2 
"ECRITURE" 
STA PFC 
LDX 
STA 
LDA IC 
BEQ S100 
JMP S27 


; COMMANDE 
POUR RUTS 


3RIEN N'°'E 


ST CLASSE 
S100 LDA 2ZCC+1 
PARTIR DU DEBUT DE 


; EXAMEN À 


S12 


Si1 STA LC 


S19 


STA 2CCP+1 
DES CLES CLASSEES 
LOY #0 
D'UN BLOC (256 OCTETS) 
LDA (2CCP),Y 


3LA ZONE 


;1ERE CLE 


; LONGUEUR 
TOTALE 
INY 
LDA (ZCCP) ,Y 
STA LU 
UTILE 
INY 
TE SUR LE 1ER CARACTERE 
STY SYC 


; LONGUEUR 
;SYC POIN 


;DE LA CL 
E 
LDA (ZCCP),Y 
BNE 513 
CLE ANNULEE 
LDA SYC 
A LA CLE SUIVANTE 
CLC 
ADC LC 
ADC #2 
TAY 
LDA (ZCCP) ,Y 
BNE S1i1 
LE BLOC EST FINI 
INC ZCCP+1 


SE :0 7} 


:ON SAUTE 


3SI 0 —-> 


; PASSAGE 


she Es " 


AU BLOC SUIVANT 
LDA ZCCP+1 
CMP S2C 
BLOC ? 
BCcC S12 
INC IC 


> DERNIER 


;NON ! 
sOUI —-> 


FINIR LE VRAC S’'IL EN RESTE 


JMP S270 
513 LDA CMINT 
0 --} PLUS DE URAC 
BEQ S131 
LDA PFC 
--) ON À DEJA CHERCHE 
BEQ 5130 
PETITE CLE DU URAC 
S129 JSR RPT 
5130  LDA CMINT 
URAC SI CMINT=0 
BEQ S131 
LDA LUT 
LUT LU 
LOX #0 
STX LM 
CMP LU 
BCS 514 
INC LM 
s14 LOY SYC 
SON CLE CLASSE A 
S140 LDA (ZCCP),Y 
PETITE DU URAC 
CMP CMINT ,X 
BCC 5131 
< VRAC 
JMP S20 
S131  LDA LC 
LC+5 OCTETS PAR CLE EN 
CLC 
LE O0 QUI MARQUE LA FIN 
ADC #5 
te 
ADC SYB 
BCC Sié 


:CMINT = 


3PFC = 0 


;LA PLUS 


; PLUS DE 


;LM=1 SI 


3 COMPARAI 


:LA PLUS 


; CLASSEE 


;IL FAUT 
; COMPTANT 


;DU BLOC 


;ILY AD 


E LA PLACE SUR LE SECTEUR 
JSR S132 
SECTEUR/PASSE AU SUIVANT 


>ECRIT LE 


JMP Sié 

LDX SXC 

LDA SFC 

RT ADRESSE DU BLOC 
STA CLEMAX ,X 
LDA SYCO 

DE LA CLE DANS LE BLOC 

INX 
STA CLEMAX,X 
INX 
STX SXC 

OINTEUR DE CLEMAX 
LDA BUF+1 

SECTEUR CLASSE QUE 

LOX #9 

NT DE CONSTITUER 
STA 10B,X 
JSR RUTS 
LDX S 

AU SECTEUR SUIVANT 

INX 

CPX ##10 

BNE 515 

INC P 

LDX #0 

STX S 

LDY #0 

TEUR DU BUFFER 


S15 


;POIDS FO 


; POSITION 


5:M.A.J. P 
> ECRIT LE 


;L'ON VIE 


; PASSAGE 


3RAZ POIN 
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;RECOPIE 


DANS LE 


; LONGUEUR 


:M.A.J. P 
LE CAS 0 
3 DERNIERE 


3: DE CONST 


; TRANSFER 


; TRANSFER 


; MARQUE L 


;: PASSAGE 


;OCTET "C 


ëNON =) 5 


184 STY SYB 
185 RTS 
186 Si LDY SyB 
LES DONNEES DE LA CLE 
187 LDA LC 
BUFFER 
128 STA (BUF) ,Y 
139 CLC 
190 ADC #2? 
191 STA LUT2 
TOTALE + ADRESSE 
192 INY 
193 LDA LU 
194 STA (BUF) ,Y 
195 INY 
196 STY SYB 
OINTEURS DE CLEMAX POUR 
197 LDY SYC 
U CETTE CLE SERAIT LA 
198 STY SYCO 
DU SECTEUR EN COURS 
199 LDA ZCCP+1 
ITUTION 
200 STA SFC 
201 LDX #0 
202 Si7 LDA (ZCCP),Y 
T INTERMEDIAIRE 
203 STA CMIN,X 
204 INX 
205 INY 
206 CPX LUT2 
207 BNE S1?7 
203 LDY SYB 
209 LDX #0 
210 518 LDA CMIN,X 
T DANS LE BUFFER 
211 STA (BUF) ,Y 
212 INX 
213 INY 
214 CPX LUT2 
215 BNE 519 
216 LDA #0 
A FIN PROVISOIRE DU SECTEUR 
217 STA (BUF) ,Y 
218 STA PFC 
219 STY SYB 
220 JMP S19 
A CLE CLASSEE SUIVANTE 
221 S20 8EQ 521 
222 JMP S23 
223 521 INX 
LASSE" = OCTET "URAC" 
224 INY 
225 LDA LM 
224 BNE S22 
C" EST LA PLUS COURTE 
227 CPX LU 
A CLE LA PLUS COURTE ? 
228 BEQ S210 
229 JMP 5140 
UITE COMPARAI SON 
230 S210  JMP S131 
231 S22 CPX LUT 
A CLE LA PLUS COURTE ? 
232 BEQ S23 
233 JMP S140 
UITE COMPARAISON 
234 523 LDA LCT 


URAC" 
235 CLC 


EST LA PLUS PETITE 


LA CLE " 


; STOCKAGE 


DANS BUFFER AVEC CHANGEMENT 


236 ADC #5 


; PREALABL 


E DE SECTEURR SI NECESSAIRE 
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CLC 

ADC SYB 

BCC 524 

JSR S132 

524 LOY SYB 

OINTEURS DE CLEMAX 

LDA LCT 

STA (BUF) ,Y 

INY 

LDA LUT 

STA (BUF) ,Y 

LDA SYM 

STA SYCO 

LDA ZTPP 

STA SFC 

INY 

LDX #0 

525 LDA CMINT,X 

T DE LA CLE 

STA (BUF) ,Y 

INX 

INY 

CPX LCT 

BNE S25 

STY SYB 

LDA SYM 

CLC 

ADC LCT 

STA PFT 

TAY 

LDA (ZCTP),Y 
T DE L’ADRESSE 

LDY SYB 


:M.A.J. P 


; TRANSFER 


; TRANSFER 


; DANS LE 
BLOC 
STA (BUF) ,Y 
INC SyB 
LOY PFT 
INY 
LDA (ZCTP),Y 
LDY SYB 
STA (BUF) ,Y 
INY 
LDA #0 
UFFER 
STA (BUF) ,Y 
STY SYB 
LOX IC 
BNE S26 
STE QUE DU URAC 
INX 


;FIN OÙ 8 


;IL NE RE 


STX PFC 
QUIL FAUDRA CHERCHER LA 
JMP S129 
+ PETITE CLE DU VRAC 
LDA CMINT 
BNE 527 
ENCORE RESTER DU VRAC 
S28 JSR S132 
RNIER SECTEUR ET SORT 
RTS 
S27 JSR RPT 
+ PETITE CLE DU VRAC 
5270 LDA CMINT 
BEQ 528 
URAC -3 FIN 
JMP S23 


S2é6 


; SIGNALE 


3; NOUVELLE 


;1L PEUT 


;ECRIT DE 


; CHERCHE 


;PLUS DE 


; TRAITEME 


NT "BUFFER" 


RPT LDA 
DU VRAC 
STA 
LDY 


CATEUR 


2ZCT+1 31ER BLOC 
ZCTP+i 
#0 


;RAZ INDI 


"RESTE DU VRAC" 


© 
29 


PES 
F8 à 


CS 


Ci 


Cé 


Co 


C1 


C2 


C9 


STY CMINT ;ON CHERC 
HE UNE 1ERE + PETITE POSSIBLE 
LDA (ZCTP),Y ;DEBUT CL 
E “URAC" DU BLOC 
STA LCT 
STA LCT2 
INY 
LDA 
INY 
STY SY 
CMP H$FF 
DEJA ETE RECLASSEE ? 
BEQ Ci 
STA 
STA 
LDA 
STA Z2TPP 
PETITE POTENTIELLE 
LDA (2CTP),Y 
BEQ C1 
ANNULEE 
STY SYM 
LDX #0 ;LA 1ERE 
CLE NON ANNULEE/NON RECLASSEE 
STA CMINT,X ;QUE L’ON 
TROUVE EST TRANSFEREE 
INY 


CZCTP) ,Y 


;LA CLE À 


000 


; BLOC DE 
LA + 


35LA CLE À 
ETE 


; DANS CMI 
NT 
INX 
CPX LCT2 
BEQ C1 
LDA CZCTP),Y 
JMP CO 
LDA SY 
CLE "URAC" 
CLC 
ADC LCT2 
ADC #2 
TAY 
LDA 
BNE C3 
INC ZCTP+1 
-> PASSE AU BLOC SUIVANT 
LDA ZCTP+1 
CMP S2T 
DEJA TRAITE ? 
BCC Ca 
JMP C12 
PLUS PETITE S’IL EN 
LDY #0 
BEQ C2 
LDA CMINT 
BEQ C5 
JOURS LA PLUS PETITE 
LDA <ZCTP),Y 
STA LCT2 
INY 
LDA 
INY 
STY SY 
CMP H#SFF 
RECLASSEE 


BEQ Ci 
STA LUT2 
LDX #0 
STX LM 
LUT2>LUT 
CMP 
BCS 
INC LM 
LDA (ZCTP),Y 
BEQ C1 


; PASSAGE 
SUIVANTE 


(ZCTP) ,Y 


3;FIN BLOC 


; DERNIER 
BLOC 
;=NON ! 
3; OUI -> ON 
RESTE 


;ON À TOU 


(ZCTP) ,Y 


3CLE DEJA 


;LM=1 SI 


LUT 
C? 


3LA CLE À 


351 


352 
353 


354 


355 
356 
357 
358 
359 
360 
361 
362 
363 


364 
365 
366 
367 


368 
369 


370 


371 


372 
37 
374 


375 
376 


377 


378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
371 
392 
393 


394 
395 


396 


397 


398 


399 
400 
401 
402 
403 
404 


ETE ANNULEE 
CMP CMINT,X 
AVEC + PETITE POTENTIELLE 
BEQ C7 
BCS Ci 
FERIEUR -> ON LA GARDE 
Ci1 LDY SY 
E LE CMINT 
LDA (C2ZCTP),Y 
LDX 2CTP+1 
STX 2ZTPP 
LDX LUT2 
STX LUT 
LDX LCT2 
STX LCT 
JMP Cé 
INX 
MINT" = 
INY 
LDA LM 
BNE C10 
CPX LUT 
À PLUS COURTE 
BNE C9 
JMP Ci 
N GARDE CMINT 
C10 CPX LUT2 
A PLUS COURTE (LUT2<LUT) ? 
BEQ Ci1 
N CHANGE CMINT 
JMP C9 
LDA CMINT 
BEQ C13 
PLUS DE VRAC 
LDA 2TPP 
STA 2ZCTP+1 
LA + PETITE DEFINITIVE 
LDY SYM 
E RECLASSEMENT DE LA CLE 


DEY 
LDA 
STA 
RTS 
LDX #4 
LDA P 
STA 10B,X 
INX 
LDA S 
STA 10B,X 
LDA /I10B 
LDY #I1OB 
JSR $3D9 
RTS 
CMIN DFS $FF 
CMINT DFS $FF 
TOUJOURS + PETITE CLE 
DFS #1 
DFS #1 ; POSITION 
+PETITE VRAC DANS SON BLOC 
LUT DFS #1 ; LONG. UT 
ILE + PETITE CLE DU VRAC 
LUT2 DFS #1 
ILE D’UNE CLE DU VRAC 
SY DFS #1 
DANS UN BLOC DE VRAC 
HEX 016002000000 
ADR DCB 
HEX 000000000100FE6002 
HEX 0001EFD8 
DCM "INT" 
END 


3; COMPAR.. 


;CMINT IN 


3; ON CHANG 


Ge ;OCTET “C 


OCTET "CLE COMPAREE" 


CLUT<LUT2) ? 


C12 
;IL N'YA 
;BLOC DE 


; MARQUE L 


HS$FF 
(ZCTP) ,Y 
c13 
RWTS 


; CONTIENT 
"URAC" 


LM 
SYM 


;LONG. UT 
; POINTEUR 


10B 


DCB 
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Récapitulation REC.OBJ 1090- EC 85 FE A9 02 85 1E A2 11D8- B1 1C A4 FE 91 18 Eé FE 











1098- OC 9D EB 14 AS Dé F0 03 11E0- A4 CE C8 Bi 1C A4 FE 91 
10A0- 4C 03 12 AS 07 85 1B A0 11E8- 18 C8 A9 00 91 18 84 FE 
10A8- 00 B1 1A 85 ED C8 81 1A 11F0- A6 Dé DO 06 E8 86 1E 4C 
: 1080- 85 D7 C8 84 FB B1 1A DO 11F8- DB 10 AD E7 13 DO 04 20 
OBS DE do es de gs  10B8- 19 AS FB 18 65 ED 69 02 1200- 0E 11 60 20 0E 12 AD E7 
9010- 18 C8 64 1B BD 6F 90 DI 10C0- A8 Bi 1A DO Eé Eé 1B A5 1208- 13 FO F4 4C 9D 11 AS 09 
9018- 08 D0 35 E8 C8 E4 06 DO 10C8- 1B CS F9 90 DA Eé Dé 4C 1210- 85 1D A0 00 8C E7 13 B1 
9020- F3 E4 18 DO 2B A6 1A AS 1000- 06 12 AD E7 13 FO 27 AS 1218- 1C 85 EF 85 FD C8 B1 1C 
9028- 1B 9D 6E 91 AS IA Eé 1À 1008- 1E FO 03 20 0E 12 AD E7 1220- C8 8C EA 14 C9 FF FO 21 
9030- OA AA AS 1B 18 65 19 AG 10E0- 13 FO 1B AD E8 14 A2 00 1228- 8D E8 14 8D E9 14 AS 1D 
9038- B1 08 9D SF 90 CB EB BI 10E8- 8E Eé 14 C5 D7 BO 03 EE 1230- 85 EE Bi 1C FO 13 8C E7 
9040- 08 9D SF 90 A2 00 C8 B1 er Se SU an nou ei on on 
9048- 08 DO BF A9 01 83 1D 40 10F8- 13 90 03 4C 7F 11 AS ED 1240- E4 FD FO 0% B1 1C 4C 38 
9050- A2 00 AS 1B 18 65 19 69 1100- 18 69 0S 18 65 FE 90 32 1248- 12 AD EA 14 18 65 FD 69 
9058- 02 AB Bi 08 DO AC 60 1108- 20 0E 11 4C 3A 11 A6 FF 1250- 02 A8 Bi 1C DO OF Eé 1D 
1110- AS 1F 9D 00 03 AS FC E8 1258- AS 1D C3 FA 90 03 4C C1 
—— 1118- 90 00 03 E8 86 FF A5 19 1260- 12 A0 00 FO ED AD E7 13 
1120- A2 09 9D EB 14 20 D3 12 1268- FO AD B1 1C 85 FD C8 B1 
5 É : 1128- A6 EC E8 E0 10 DO 04 Eé 1270- 1C C8 8C EA 14 C9 FF FO 
Récapitulation CLAS.OBJ 1130- EB A2 00 86 EC A0 00 84 1278- DO 80 E9 14 A2 00 8E Eé 
1138- FE 60 A4 FE AS ED 91 18 1280- 14 CD ES 14 B0 03 EE Eé 
1140- 18 69 02 8D E9 14 C8 AS 1288- 14 B1 1C FO BC DD E7 13 
1000- A9 01 A2 OC 9D EB 14 A5 1148- D7 91 18 C8 84 FE A4 FB 1290- FO 18 B0O B5 AC EA 14 Bi 
1008- 09 85 1D AS Dé DO 53 A5 1150- 84 FC AS 1B 85 1F A2 00 1298- 1C Aé 1D 86 EE AE E9 14 
1010- 07 85 1B A9 00 85 EB 85 1158- B1 1A 9D E8 12 E8 C8 EC 12A0- 8E E8 14 A6 FD 86 EF 4C 
1018- EC A2 08 8E E7 13 A5 04 1160- E9 14 DO F4 A4 FE A2 00 12A8- 36 12 ES C8 AD Eé 14 DO 
1020- 90 EB 14 E8 ÀS 1B 90 EB 1168- BD E8 12 91 18 E8 C8 EC 1280- 08 EC E8 14 DO D3 4C 49 
1028- 14 20 D3 12 A4 EB Âé EC 1170- E9 14 DO F4 A9 00 91 18 12B8- 12 EC E9 14 F0 Dé 4C 89 
1030- C4 1E DO 04 E4 1F FO 15 1178- 85 1E 84 FE 4C B9 10 FO 12C0- 12 AD E7 13 FO OC AS EE 
1038- E0 OF DO 07 C8 84 EB A2 1180- 03 4C 9D 11 E8 C8 AD Eé 12C8- 85 1D AC E7 14 88 A9 FF 
1040- 00 FO 01 E8 86 EC Eé 18 1188- 14 DO OA E4 D7 FO 03 4C 12D0- 91 1C 60 A2 04 AS EB 9D 
1048- 42 09 4C 24 10 Eé 18 AS 1190- F4 10 4C FE 10 EC E8 14 12D8- EB 14 E8 AS EC 9D EB 14 
1050- 18 8S F9 E8 EO 10 DO 05 1198- F0 03 4C F4 10 AS EF 18 12E0- A9 14 A0 EB 20 D9 03 60 
1058- C8 84 EB A2 00 8é EC 4C 11A0- 69 05 18 65 FE 90 03 20 
1060- 68 10 A9 00 85 EB 85 EC 11A8- 0E 11 A4 FE AS EF 91 18 
1068- AS 1D A2 09 9D EB 14 20 1180- C8 AD E8 14 91 18 AD E7 TABLES 
1070- D3 12 A4 EB Aé EC C4 CE 11B8- 14 85 FC AS EE 85 1F C8 
1078- DO 04 E4 CF F0 05 Eé 1D 11C0- A2 00 BD E7 13 91 18 E8 14EB- 01 60 02 00 00 
1080- 4C 53 10 Eé 1D AS 1D 85 11C8- C8 E4 EF DO F5 84 FE AD 14F0- 00 FC 14 00 00 00 00 0: 
1088- FA A9 00 85 FF 85 EB 85 11D0- E7 14 18 65 EF 85 CE A8 14F8- 00 FE 60 02 00 01 EF D8 


VOUS PROGRAMMEZ SUR APPLE II 
VOUS VOULEZ GAGNER DU TEMPS 
VOUS CHERCHEZ A AMELIORER VOS CAPACITES 


LIGHT EST FAIT POUR VOUS s,. xrr srance vost 


LIGHT est un ensemble de puissants logiciels 
d'aide à la programmation conçu pour: 
- mieux gérer les fichiers et les disquettes 
mise à jour d’un catalogue général 
état des secteurs libres sur un disque < 
- faciliter l'exploration et l'exploitation des disquettes 


0 
\ 


SS 


+ 
CSSS 
Soi: DL 


CR 
ARE 


accès direct, lecture, écriture des secteurs 
transfert et recherche des séquences d’octets 

- accélérer l'analyse de vos programmes 
en Basic: recherche des tokens et des suites désignées 
en Binaire : impression en désassemblé de séquences 
d’octets; pistage en tout ou partie du déroulement 


banc d'essais dans Pom's n°13 == 


POUR EN SAVOIR PLUS SUR LIGHT : 
M. 


adresse 


demande une documentation complète, sans engagement de sa part, aux Années Nouvelles, 70, rue du Javelot, 75013 Paris. 
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Nous vous avions promis un 
cahier Macintosh dans chaque numéro 
de Pom's. Voici le premier de ces 
cahiers. Vous y trouverez, outre les 
remarques de cette page, un article 
sur les ROMS du Mac, un article sur 
la programmation de ses curseurs et 
enfin (page 49) un tableau avec les 
renseignements Jes plus récents sur 
les logiciels du Macintosh. 


Politique éditoriale 


Nous nous sommes longuement 
interrogés sur la politique à suivre 
pour nos articles dans le cahier du 
Mac. Nous avons finalement décidé de 
maintenir, au niveau du Macintosh, la 
politique de qualité de Pom's, qui a 
toujours refusé le nivellement vers 
le bas. Nous partirons donc du 
principe que les lecteurs de Poms 
auront lu les modes d'emploi du Mac 
et des logiciels qu'ils utilisent et 
qu'il est donc inutile de leur 
proposer des explications qui ne 
feraient que résumer la documen- 
tation. 


Contenu de la disquette Mac 


Nous vous proposons en outre dès 
ce numéro une disquette Macintosh, 
dans laquelle vous trouverez : 

e le programme Disk Copy, qui 
permet de réaliser une copie de 
disquettes en quatre passages 






AB C D E PF 















PR ER S 





avec seulement le lecteur intégré 
du Mac; 

e la police de caractères Cairo, dont 
vous pouvez voir les signes en bas 
de page, 

e les programmes ‘du Mac publiés 
dans les numéros 14/15 de Pom's. 


Nous ajouterons à la disquette, 
au fur et à mesure, les programmes 
des numéros suivants, ainsi que 
quelques surprises supplémentaires 
que nous vous laissons découvrir … 


Multiplan sur Macintosh 
! | | m 


Pour avoir plus de lignes et de 
colonnes à l'écran, écartez à l'aide 
du Font Mover les polices Seattle de 
la disquette Multiplan, en les 
mettant dans un fichier Caractères 
afin de pouvoir les récupérer plus 
tard. Vous obtiendrez alors 20 lignes 
et 7 colonnes à l'écran, au prix d'une 
baisse de la lisibilité. 


2. important presse-papier 


Quand vous sortez de Multiplan 
après avoir copié plus de 50 cellules 
(par exemple pour les transférer à 
MacWrite), le message “Enregistre- 
ment d'un important presse-papier” 
s'affiche. S'il y a plus de 100 
cellules à copier, il faut cliquer pour 
demander l'enregistrement des va- 


VeobseloD ht rn OC un LÉOQMEES 


LMN OPQORS 


JS 8 ED ee MEN NS RAIN TER 


1234567890 1 


Tao rx ORmPÉT er Oo +ets (DA 


mm fl O ZE De 10) ee € 


H OL  J K 


e#S$S% * w* 


leurs formatées et des valeurs non 
formatées (c'est automatique pour 
moins de 100 cellules). Dans un cas 
comme dans l'autre, validez l'enre- 
gistrement avec OK. 


3. Tabulation numérique 


Lorsque vous copiez plusieurs 
colonnes de valeurs de Multiplan 
vers MacWrite, vous pouvez réaligner 
les valeurs avec la tabulation 
numérique (le triangle pointé). Bien 
entendu, ei vous possédez un 
Multiplan US. (point de décimali- 
sation) avec un MacWrite français 
(virgule de décimalisation), le 
cadrage ne se fera pas avant que 


Vous ayez changé les *” en”, 


Si la première colonne contient 
des valeurs numériques, celles-ci ne 
seront pas tabulées. Pour atteindre 
cet objectif, il conviendra d'ajouter 
préalablement une colonne blanche à 
la zone à copier vers MacWrite. 


4, Autres trucs d'utilisation 


De nombreux autres trucs 
d'utilisation vous sont proposés dans 
“Multiplan pour Macintosh”, qui doit 
paraître aux Editions du PSI à la fin 
décembre. Cet ouvrage a été réalisé 
à partir de la version 1.02 de 
Multiplan en version française (août 
1984). 


TU UWHY 2 





FCAIRO 


Police Cairo - Tobleou provenont de Mac the Knife”* 
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Les Routines en ROM du Macintosh 


Le Basic Microsoft donne accès à 41 
routines situées dans la mémoire à 
lecture seule du Macintosh. Malheu- 
reusement, le manuel d'utilisation de 
l'interpréteur indique seulement la 
syntaxe des instructions, ce qui est 
loin d'être suffisant pour une utilisa- 
tion optimale. De plus. le manuel 
propose. pour obtenir de plus amples 
informations. une consultation du 
“QuickDraw Programmer s Guide”, 
qui n'est pas accessible à l'utilisateur 
du Macintosh ! 


Devant cet état de fait, nous avons. 


pensé devoir vous fournir la docu- 
mentation qui aurait normalement dû 
être jointe au manuel d'utilisation du 
Basic Microsoft 


Avant d'entrer dans le vif du sujet, il 
convient de signaler que cet article 
nest pas un ‘remake du ‘Quick- 
Draw Programmer s quide”: nous 
n'avons jamais eu entre les mains ce 
document. 


Call BackPat (VARPTR(F%(0))) 


Cette instruction permet de définir 
une matrice de 8+8 points (ou pixels) 
qui détermine l'apparence du ‘fond 
de l'écran” (sur lequel sont superpo 
sés les caractères). Le principe est à 
peu près le même que celui utilisé 
dans le ‘tableau de bord”, pour 


choisir l'aspect du bureau 


Les points ‘on’ (noir) et ‘off? 
(blanc) sont déterminés par l'état des 
64 bits contenus dans un tableau de 
4 variables entières. que nous avons 
arbitrairement baptisé F% dans notre 
exemple. L'octet de poids fort de la 
variable d'indice 0 représente la pre 
mière ligne de 8 points. l'octet de 
poids faible représente la seconde 
ligne de 8 points, l'octet de poids fort 
de la variable d'indice 1 représente la 
troisième ligne, etc... Notons que 
dans le cas d'une utilisation de l'ins- 
truction OPTION BASE 1, les indices 
doivent être compris entre 1 et 4 
inclus, au lieu de 0 à 3. 


Prenons un exemple concret : nous 
voulons que l'écran (ou plutôt la ‘fe 
nêtre de sortie”, pour employer la 
terminologie “Mac” !}) soit rempli du 
motif suivant 


Poids faible de F&(0) 
Le: fort de F&(0) 


} F&(0) 
} F&(1) 
} F#(2) 
} F&(3) 
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Pour obtenir ce motif, nous devons 
affecter à nos quatre variables les va- 
leurs binaires : 

10011001 01000010 

00100100 10011001 

10011001 00100100 

01000010 10011001 

soit, en hexadécimal : 

&H9942 

&H2499 

&H9924 

&H4299 


Dans un programme. parmi les multi- 
ples solutions possibles, nous pour- 
rions trouver : 


10 DIMFR(3) 

20 DATA &H9942,&H2499,&H9924, 
&H4299 

30 FOR 1%=0 TO 3 

40 READ FR(1%) 

SO NEXT 

60 CALL BACKPAT(VARPTR(FR(0))) 

70 CLS 


L'instruction CLS est indispensable 
car, si elle est omise. l'écran demeure 
inchangé. Pour replacer l'écran dans 
son état initial, il suffit de relancer le 
programme après modification de la 
ligne 20 

20 DATA 0.0.0,0 


Gestion du Curseur 
Call SetCursor (VARPTR(C%(0))) 


Si vous êtes las de voir le curseur en 
forme de flèche, vous pouvez créer 
le vôtre. Pour cela. il vous faudra 
d'abord définir un tableau de 34 va- 
riables entières (indices O0 à 33, ou 1 
à 34 avec OPTION BASE 1) que 


nous appellerons C%. 


Les variables C%(0) à C%(15) sont 
utilisées pour définir la forme du cur- 
seur dans une grille de 16*16 points, 
chaque ligne horizontale de 16 points 
étant affectée à une variable. 


Les variables C%(16) à C%(31) défi- 
nissent le masque du curseur, qui 
permet une superposition à ce qui 
est affiché à l'écran. En effet, si un 
des points du curseur n'est pas mas- 
qué, l'opération logique XOR (OU” 
exclusif, où encore ‘lun ou l'autre 
mais pas les deux”) est effectuée 
entre le point concerné du curseur et 
celui occupant la même position sur 
l'écran. 


La variable C%(32) indique la posi- 
tion verticale du point chaud par rap- 
port au coin supérieur gauche de la 
grille 16x16. Le point chaud corres- 
pond aux valeurs retournées par 
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La variable C%(33) indique la posi- 
tion horizontale du point chaud, tou- 
jours par rapport au coin supérieur 
gauche. 


Pour illustrer le fonctionnement de 
cette routine, nous allons créer un 
curseur ayant la forme d'un “Mac”. 


Curseur 
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100 DIM CR(33) 


110 REM 

120 REM - Data pour la définition du 
curseur 

130 REM 


140 DATA &H7FFC,&H8002,&H9FF2, 
&HAOOA 

150 DATA &HAOOA, &HAOOA,&HAOOA, 
&HAOOA 

160 DATA &H9FF2,&H8002,8&H8002, 
&H90F2 

170 DATA &H8002,&HSFF4,&H4004, 
&H7FFC 


180 REM 

190 REM - Data pour la définition du 
masque 

200 REM 


210 DATA &H7FFC,&HFFFE, &HFFFE,&HEOOE 

220 DATA &HEOOE,&HEOOE,&HEOOE, 
B&HEOOEË 

230 DATA &HFFFE, &HFFFE, &HFFFE, 
BHFFFE 
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240 DATA &HFFFE, &H7FFC,&H7FFC, 
&H7FFC 

250 REM 

260 REM - Data pour la position du point 
chaud 

270 REM 

280 DATA 5,7 

290 REM 

300 FOR 1#%=0 TO 33:READ CR(IR):NEXT 

310 CALL SETCURSOR(VARPTR(CR(O))) 


Note : la routine SetCursor n'est pas 
protégée contre les passages de para- 
mètres invalides: il faut donc être très 
prudent, surtout en ce qui concerne 
la position du point chaud, si l'on ne 
veut pas “planter” le Macintosh. 


Call InitCursor 


Cette instruction, qui ne requiert pas 
d'argument, réinitialise le curseur en 
forme de flèche. Si le résultat de 
l'exemple précédent est toujours en 
mémoire, vous pouvez rétablir le cur- 
seur d'origine en entrant cette ins- 
truction en mode immédiat 


Call HideCursor 


Après exécution. le curseur est invisi- 
ble, bien que toujours présent. 


Call ShowCursor 
Visualise à nouveau le curseur. 
Call ObscureCursor 


Le curseur devient invisible (comme 
avec Call HideCursor) mais réappa- 
raît dès qu'un déplacement de la 
souris est détecté. 


Gestion du ”’ crayon” 


Les routines décrites dans ce para- 
graphe conditionnent le résultat ob- 
tenu après exécution de toutes les 
instructions du Basic Microsoft pro- 
pres à créer des graphismes (LINE. 
CIRCLE...), mais aussi après exécu- 
tion des routines graphiques en ROM 
(Call FrameRect, Call FillRect, etc...) 


Call PenSize (largeur,hauteur) 


Détermine les dimensions du crayon 
(ou traceur). Les valeurs par défaut 
sont égales à 1 pour la largeur et la 
hauteur. 


Lorsque l'on trace une ligne, la lar- 
geur du trait est reportée vers la 
droite par rapport aux coordonnées 
horizontales, alors que la hauteur est 
reportée vers le bas par rapport aux 
coordonnées verticales. En revanche, 
pour les figures fermées (un rectan- 
gle, par exemple) ou un arc de cer- 
cle, les dimensions sont respectées et 
l'épaisseur du trait est reportée à l'in- 
térieur de la figure. 


Call PenPat (VARPTR(F%(0))) 


Cette instruction fonctionne exacte- 
ment de la même façon que Call 
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BackPat: une nouvelle explication se- 
rait donc superflue. 


Call Penmode (mode) 


Call Penmode détermine le compor- 
tement des instructions ou routines 
graphiques. par rapport à ce qui est 
déjà affiché à l'écran. 

mode — à 


Il s'agit du mode normal: les points 
constituant la ligne ou la figure. qu'ils 
soient ‘on ou ‘off. masquent ce 
qui se trouve sur l'écran. 


mode — ÿ 


L'opération logique OR (OÙ) est réa- 
lisée entre la ligne (ou la figure) et le 
fond. Autrement dit, les points “on” 
du fond et de la ligne sont affichés. 
Dans le petit tableau placé ci-des- 
sous, la première colonne de chiffres 
représente les points de la ligne à af- 
ficher (1 = point ‘on’. O0 = point 
off”), la seconde colonne représente 
les points déjà présents à l'écran et la 
troisième indique le résultat de l'opé- 
ration. 


IORI-I 
1ORO=1 
OORI-I1 
OORG-0 
mode -— 10 


Ce mode autorise une opération logi- 
que de type XOR (OÙ exclusif]. Les 
points ‘on’ du fond et de la ligne 
sont affichés, sauf si un point ‘on’ 
de la ligne correspond à un point 
on” du fond. Dans ce cas. le point 
résultant est “off” (blanc). 


1XOR 1-0 
1XORO = I 
OXOR 1 = 1 
OXORO=0 
mode = |! 


Opération logique AND (ET). Les 
points résultant de l'opération sont 
on” uniquement si les points corres- 
pondants de la ligne et du fond sont 
on 


1 AND 1-1 
1 ANDO=0 
O AND 1-0 
O0 ANDO = 0 
mode — 12 


Tous les points constituant la ligne 
sont d'abord inversés (NOT), puis 
sont superposés aux points définis- 
sant le fond. 


NOT 1=0 
NOT 0 = 1 
mode = 13 


Double opération logique NOT et 
OR. Les points constituant la ligne 
sont d'abord inversés (comme avec 
12), et sont ensuite traités comme 
avec ‘mode = 9°”. 


NOTI1ORI1=1 


NOT O OR 1 = 
NOTI1ORO=0 
NOTOORO = 1 


mode — 14 


La méthode employée est la même 
que pour l'argument précédent, mise 
à part l'opération logique OR, ici 
remplacée par XOR. 
NOT 1XOR 1 = 1 


NOT 0 XOR 1 = 0 
NOT 1 XOR OO = 0 
NOT O0 XOR 0 = 1 
mode = 15 


Le second opérateur logique est cette 
fois un AND. 


NOT 1 AND 1 =0 
NOT O AND 1 =1 
NOT 1 ANDO = 0 
NOT 0 AND 0 = 0 


Afin de mettre en évidence une des 
possibités de cette routine, nous vous 
proposons un petit exemple qui affi- 
che un texte estompé. à la manière 
des menus du Mac. 


10 CLS 

20 DIMF&(3) 

30 FOR 1#=0 TO 3 

40 FR(IR)=-&HSSAA 

S0 NEXT 

60 CALL PENPAT(VARPTR(FR(O))) 
70 CALL TEXTFONT(O) 

80 CALL PENMODE(1 1) 

90 CALL PENSIZE(1,12) 

100 PRINT "Caractères estompés” 
110 LINE(2,2)-(140,2) 

120 GOTO 120 


Call GetPen (VARPTR(P%(0))) 


Cette routine retourne la position 
courante du crayon dans P%{(0) 
(coordonnée verticale) et P%(1) 
(coordonnée horizontale). Call Get- 
pen permet aussi de savoir où sera 
affiché (avec PRINT ou WRITE) le 
prochain texte où nombre. Avec OP- 
TION BASE 1, il faut utiliser les indi- 
ces 1 et 2 au lieu de Uet 1. 


Call HidePen 


Inhibe le crayon. Tout se passe 
comme si les instructions graphiques 
étaient ignorées. 


Call ShowPen 
Redonne son efficacité au crayon. 
Call PenNormal 


Le crayon reprend les caractéristi- 
ques qui lui sont données au mo- 
ment de l'initialisation (valeurs par 
défaut : Call PenSize(1,1), Call Pen- 
Mode(8), etc...). 


Call MoveTo (X,Y) 


Déplace le crayon, sans tracer de 
ligne, à la position horizontale X et à 
la position verticale Y. 
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Call Move (XR,YR) 


Déplacement relatif de XR points par 
rapport à la position horizontale ac- 
tuelle du crayon et de YR points par 
rapport à la position verticale. Ainsi, 
si la position courante est: X = 100 
et Y — 100, l'instruction Call 
Move(10,—10) reporte le crayon à 
l'emplacement : X = 110, Y = 90. 


Les instructions Call MoveTo et Call 
Move peuvent aussi être utilisées 
pour déterminer la position des pro- 
chains caractères affichés par PRINT 
ou WRITE. 


Call LineTo (X,Y) 


Trace une ligne entre la position cou- 
rante du crayon et les coordonnées 
X (horizontale) et Y (verticale). 


Call Line (XR,YR) 


Trace une ligne entre la position cou- 
rante du crayon et les coordonnées 
relatives XR et YR (voir Call Move). 


Gestion du texte 
Call TextFont (police) 


Autorise le choix de la police de ca- 
ractères. Les indications fournies ci- 
dessous sont valables avec un ‘’dos- 
sier système” standard, les arguments 
pouvant donner des résultats diffé- 
rents avec les versions futures ou 
avec un dossier ‘’bidouillé”. 


: Chicago 

: New York 

: Geneve 

: Monaco 

: Venice 

: London 

: Athens 

: San Francisco 
: Toronto 


...e..00ee 
\O O0 -J ON O1,B © m1 © 


Call TextFace (aspect) 


Détermine l'aspect du texte. La rou- 
tine utilise les 7 bits de poids faible 
de l'argument de la manière sui- 
vante : 


e bitO (1) = gras: 


© bit 1 (2) = italique: 

e bit 2 (4) = souligné: 

e bit 3 (8) = relief: 

e bit 4 (16) = ombre: 

e bit 5 (32) = espacement normal 


des caractères: 
bit 6 (64) = espace plus important 
entre les caractères. 


Ainsi, l'argument 7 (1 + 2 + 4) cor- 
respond à: gras + souligné + itali- 
que. 0 affiche des caractères stan- 
dards. 


Call textSize (taille) 


La hauteur des caractères affichés 
est, par défaut, de 12 points. Cette 
instruction affecte aux caractères une 
hauteur en fonction de l'argument. 
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e Une valeur négative inhibe l'affi- 
chage. 

e O redonne aux caractères leur 
taille par défaut. 

e 1 ‘plante’ le Mac! 

e 2 et plus indiquent la hauteur des 
caractères. 


Il est possible de donner aux caractè- 
res une hauteur de 3 ou 300 points, 
mais la lisibilité n'est pas très bonne 
(elle est même franchement mau- 
vaise !)}. De manière générale, il vaut 
mieux s'en tenir aux tailles recom- 
mandées par MacPaint et MacWrite. 


Call TextMode (mode) 


Le but de cette instruction est sensi- 
blement le même que celui de Call 
PenMode pour le crayon, avec des 
possibilités moins étendues. 


mode = 0 : les caractères sont super- 
posés à ce qui se trouve sur l'écran 
(identique à Call PenMode(8)). 

mode = 1: opération logique OR 
(identique à Call PenMode(9)). 

mode = 2: opération logique XOR 
(identique à Call PenMode(10)). 
mode = 3: les caractères sont affi- 
chés en blanc, et ne sont donc par- 
faitement lisibles que sur un fond 
noir. 


Rectangles 


Call FrameRect 
(VARPTR(R®%(0))) 


Trace le contour d’un rectangle dont 
les coordonnées sont situées dans les 
quatre variables entières du tableau 
R% : 

e R%{(0) = côté supérieur: 

e R%{(1) = côté gauche: 

e R%(2) = côté inférieur: 

e R%(3) = côté droit. 


L'aspect du tracé est conditionné par 
les instructions Call PenMode, Call 
PenSize et Call PenPat. Si, pour ces 
instructions, nous conservons les va- 
leurs par défaut, Call FrameRect 
donne Je même résultat que 
LINE(X1,Y1)-(X2,Y2),.B. 


Call PaintRect (VARPTR(R%(0))) 


Remplit un rectangle dont les coor- 
données se trouvent dans le tableau 
R%, avec le motif initialisé par l'ins- 
truction Call PenPat. 


Call EraseRect (VARPTR(R%(0))) 


Efface la partie de l'écran comprise 
dans un rectangle dont les coordon- 
nées se trouvent dans le tableau R%. 


Call InvertRect (VARPTR(R%(0))) 


Inverse l'état des points situés à l'in- 
térieur d’un rectangle (NOT). 


Call FillRect 
(VARPTR(R%(0)), VARPTR(F%(0))) 


Cette instruction combine Call Pain- 


tRect et Call PenPat. Ceci permet de 
remplir un rectangle sans modifier le 
motif affecté au crayon. Les coor- 
données du rectangle sont dans le ta- 
bleau R% et le motif se trouve dans 
le tableau F%. 


Rectangles aux angles 
arrondis 


Call FrameRoundRect 
(VARPTR(R®%(0)),AX,AY) 


Trace le contour d'un rectangle aux 
angles arrondis. Les coordonnées du 
rectangle sont dans le tableau R%. 
Les caractéristiques de l'arrondi sont 
déterminées par AX (axe horizontal 
d'une ellipse) et AY (axe vertical). Si 
AX et AY sont égaux, l’arrondi est 
un arc de cercle. 


Les instructions  PaintRoundRect, 
EraseRoundRect, InvertRoundRect et 
FillRoundRect fonctionnent de la 
même façon que PaintRect, Erase- 
Rect, etc. avec en plus les valeurs 
AX et AY pour les arrondis. 


Ellipses 


Call FrameOval 
(VARPTR(R%(0))) 


Trace le contour d’une ellipse inscrite 
dans un rectangle fictif dont les coor- 


données se trouvent dans le tableau 
R%. 


R&(O) | 





Si R%(2) — R%(0) est égal à R%(3) 
_ %(1), l'instruction trace le 
contour d'un cercle. 


Les instructions PaintOval, EraseO- 
val, InvertOval et FillOval sont 
comparables à PaintRect, EraseRect, 
etc. mise à part leur action sur des 
ellipses au lieu de rectangles. 


Arcs de cercles 


Call FrameÂArc 
(VARPTR(R%(0)),AD,A) 


Trace l'arc d'un cercle (en fait, il 
s'agit plutôt d'un ‘arc d'’ellipse”) ins- 
crit dans un carré fictif (ou un rectan- 
gle) dont les coordonnées se trou- 
vent dans le tableau R%. 


AD correspond à l'angle de départ et 
À à l'angle de l'arc par rapport à AD, 
les valeurs étant données en degrés. 
Les arguments supérieurs à 360 sont 
ignorés. 
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PaintArc, EraseArc, InvertArc et Fil- 
Arc fonctionnent comme PaintRect, 
etc... tout en utilisant le ‘système an- 
gulaire” de FrameArc. ES 





Au sujet de l'article ‘Les 


routines en ROM..." 


Comme nous le signalons dans le 


paragraphe ‘Gestion du texte”, la 
routine "Call TextFont” peut donner 
des résultats différents selon la 
version du dossier système. Les 
choses allant très vite, nous sommes 
déjà amené à vous indiquer les 
modifications à apporter pour le 
nouveau dossier système (Finder 
version 1.1) utilisé pour la disquette 
Porm's. 


O0 = Chicago 

1 = Geneve 

2 = New York 
4 = Monaco 

S = Venice 

6 = London 

7 = Athens 


8 = SanFrancisco 
Toronto 
Caïro 

Los Angeles 


Pour la même raison, le programme 
"Editeur de formes et curseurs” 
enregistré sur la disquette a subi une 
petite modification, par rapport à la 
version listée, afin qu'il soit 
compatible avec le nouveau système. 
Pour nos lecteurs qui utilisent la 
version !.1 du Finder et ne désirent 
pas acquérir la disquette, signalons 
qu'il suffit de remplacer le "Call 
TextFont(1) de la ligne 170 par un 
"Call TextFont(2)". 





Caractères programmables 


sur imprimantes Apple 


Apple Seedrin 


Sur les imprimantes série Image Wri- 
ter ou parallèle DMP, la définition de 
caractères programmables pose des 
problèmes (caractères soulignés) liés 
à la façon dont l'Applesoft envoie les 
codes à l'imprimante. En effet, l'Ap- 
plesoft positionne toujours le bit de 
poids fort des octets à 1. ce qui inter- 
dit d'envoyer des caractères de 
contrôle inférieurs à 128. 


Il est donc nécessaire de passer par 


le langage machine pour envoyer 
tous les caractères voulus. Le code 
concerné sera POKé à une adresse 
donnée par le programme Basic, puis 
repris par une petite routine du type : 


300-AD0703 LDA $307 
303-20EDFD JSR $FDED 
306-60 RTS 


Dans cet exemple, le code aura été 
préalablement POKé à l'adresse 
$307 (775 en décimal). et l'appel de 


la routine se fera ensuite par un 
CALL 768. 


Vous trouverez ci-après un petit pro- 
gramme illustrant cette méthode. 

De plus, certaines interfaces intercep- 
tent le code ‘“CTRL-I”. soit 
CHR$(9). comme code de 
commande, ce qui empêche de l'uti- 
liser dans la définition d'un caractère 
programmable. Dans ce cas, il est 
donc nécessaire de neutraliser l'inter- 
face (par un PRINT CHRS$(9)"Z" sur 
la carte Super Série, par exemple) 
afin de recouvrer l'usage du code 9. 
On prendra soin alors d'envoyer les 
instructions de neutralisation en tout 
début de programme et de ne jamais 
repasser par elles. pour éviter de les 
voir s'imprimer de façon intempes- 
tive. # 


RE ————_—_—_—_—————ZZ re, 


Exemple d'utilisation 


10 REM CHARGEMENT DE LA ROUTINE EN DEC 330 


310 REM 
320 REM 


Sptcification de la 


largeur du 


caractdre 


REM 


768 340 PRINT CHR$ (80); 
20 DATA 173,7,3,32,237,253,96 350 REM 
30 FOR I = 1 TO 7: READ À: POKE 767 + l4 360 REM ENVOI DU CODAGE DU CARACTERE 

A: NEXT 370 REM 
40 REM CONNECTE L’IMPRIMANTE 380 DATA 8,20,34,45,65,45,65,34,34,20,8 
S0 PRINT CHRS& (4); "PRH1" :20,34,65,65,65 
60 REM 390 FOR I = TO 16: REÂD À: POKE 775,Â: 
90 REM CREATION DU CARACTERE CALL 768: NEXT 
120 REM 400 REM 
130 REM SELECTIONE LA LARGEUR MAXIMALE 410 REM FIN OU CODAGE 

16 POINTS 420 REM 

140 REM 430 PRINT CHR$ (4) 
150 PRINT CHR$ (27); CHR$ (43) 440 REM 
160 REM 450 REM SELECTION DU JEU DE CAR 
170 REM DEBUT DU CHARGEMENT DU CARACTER ACTERES PROGRAMMABLES 

E 460 REM 
180 REM 470 PRINT CHR$ (27); CHR$ (39) 
190 PRINT CHR# (27); CHRS (73); 480 REM 
200 REM 490 REM IMPRESSION DU CARACTERE 
230 REM SEQUENCE À EXECUTER POUR CHAQUE S00 REM 

CARACTERE 510 PRINT "1 1 1 1 1 1 1 Î 1 Î 
260 REM 1 1 1 1 1 1 1 1 1 1 L# 
270 REM DEFINITION D'UN CARACTERE D 520 REM 

E CODE ASCII DEC 49 530 REM RETOUR AU JEU DE CARACTERES NOR 
280 REM MAL 
290 REM Envoi 93 l’imprimante du code ac 540 REM 

sii 550 PRINT CHR$ (27): CHR$S (36) 
300 POKE 775,49: CALL 768 S60 PRINT CHRS (4); "PRHO" 
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|__| Pourtols les passionnés de l'ordinateur ESSOREL | 
les branchés et ceux qui le soht mains, Apple lancé le Club Apple. 























| Enfin un (club avec des idées let des services | ll 
| pour comprendre, pour gagner, pour s'évader. | 
D) | | | Le Club Apple, c'est l'esprit Apple. | 

| | C'est le fruit de la passion. | 











Pour en savoir plus sur le Club Apple le fruit de la passion - et connaître tous les avantages que nous réservons aux 
membres du club, découpez dès aujourd'hui le bon et retournezle à Club Apple, avenue de l'Océanie -ZA de Courtabœuf - BP T31 
Les Ulis cedex 91944. Vous recevrez sans engagement de votre part toutes les informations pour devenir membre du club. 
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Il était temps qu'un capitaliste 
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fasse une révolution. 





N'apprenez plus à devenir une machine, Apple a inventé Macintosh... 


7 © 


CLA 4 BRON 





PEACHTREE,, LA COMP 
UE C'EN EST PRES 





La comptabilité, c'est long, compliqué, 
fastidieux ! 
Tout celà était vrai avant Mac Accounting. Avec 
Mac Accounting, le nouveau logiciel de comptabilité 
de Peachtree, finis les livres de caisse en deux exem- 
plaires, finis les bons de caisse, finis les carbones, 
terminées les mises à jour qui font perdre du temps. 
Mac Accounting est un programme comptable déve- 
loppé spécialement par Peachtree pour le Mac Intosh. 
Et dans le domaine particulier de la comptabilité, 
la compétence de Peachtree n'est plus à prouver. 
Avec plus de 100.000 utilisateurs dans le monde 
entier, Peachtree possède une très large expérience 
des besoins des petites et moyennes entreprises 
en matière de comptabilité. Spécialement étudié pour 
un utilisateur n'ayant aucune connaissance infor- 
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matique préalable, Mac Accounting est conçu pour 
être le plus proche des systèmes manuels... avec 
l'exactitude et la rapidité des solutions informatiques. 
Un comptable reconnaît immédiatement les pages 
d'un journal de caisse ou du Grand Livre: c'est 
exactement ce qu'il retrouvera sur l'écran du Mac 
Intosh lorsqu'il utilisera Mac Accounting. 

Mac Cash est le premier des deux program- 
mes qui constituent Mac Accounting. C'est un livre de 
caisse sur écran. Idéal pour les PME, ses carac- 
téristiques parlent d'elles-mêmes. La taille du journal, 
le titre des colonnes, la période comptable et les 
formats monétaires sont définis par l'utilisateur. 
Mac Cash accepte jusqu'à cinq taux de taxe, et 
huit colonnes d'analyse des prix hors-taxes, sa mise 
à jour est automatique au fur et à mesure de la 
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TA DEVIENT SI SIMPLE 
E UN PECHE. 
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saisie des opérations, enfin l'utilisateur spécifie lui- Dernier avantage : Mac Accounting a éte 
mème les modèles des états de sortie et leur contenu. conçu en français et peut être utilisé par n'importe 
Bref, un outil simple et performant. quel utilisateur en moins de trente minutes. 

Mac Ledger est le second module de Mac Le doute n'est plus permis : avec Mac Intosh et Mac 
Accounting, c'est la partie comptabilité générale. Accounting la comptabilité devient si simple que c'est 
Le format du journal est standard et peut être utilisé presque un péché. 


aussi bien pour les comptes fournisseurs que pour 
les comptes clients, L'utilisateur définit lui-même le 


format des fiches comptables qui se sélectionnent Peachtree est distribué par Logiciel PC: 113, bd Pereire 
facilement à l'aide de la souris Mac Intosh. Les 75017 Paris. Tél. : 763.62.88. 
opérations saisies peuvent être analysées par type ——- 

Il € F L Y | J | =Y = 










de produit, par territoire, par vendeur ou par toute 
autre variable définie par l'utilisateur... 

Les créances sont analysées sur trois périodes, 
ce qui facilite contrôle et réajustement. En résumé 
le complement indispensable de Mac Cash. 


pr 


htre 
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EU SUCER 


OANS MAUX DE TETE 


La pratique de l’Apple 11 
tome | 

bar Nicole Bréaud-Pouliquen 

Cet ouvrage présente les spécificités 
du Basic Applesoft à partir d'une 
description du matériel et du logiciel 
du système Apple. Les techniques 
de programmation, de composition 
et d'animation de dessins et graphi- 
ques colorés y sont expliquées à l'aide 
d'exemplesillustratifs et d'exercices 
résolus. 


128 pages - 80,00 FF 


La pratique de l'Apple Il 
tome 2 

par Nicole Bréaud-Pouliquen 

Ce second volume de la pratique de 
l'Apple Il est consacré au système 
d'exploitation disque, à la gestion 
des fichiers, à l'impression et aux 
imprimantes, à la carte horloge 
Appleclock. De nombreux exemples 
de programmes illustrent les fonc- 
tions et les commandes décrites. 


120 pages - 80,00 FF 


La pratique de l’Apple II 
tome 3 

bar Nicole Bréaud-Pouliquen 

et Daniel-Jean David 

Ce volume est une initiation à la 
programmation en langage machine 
6502 dont le jeu d'instructions est 
expliqué et utilisé. L'assembleur 
symbolique et ses logiciels connexes 
y sont décrits. L'interaction avec le 
Basic et avec le système y est étudiée. 


176 pages - 90,00 FF 


Clefs pour l’Apple II 

par Nicole Bréaud-Pouliquen 

Un livre de référence, dans la collec- 
tion "Mémentos”, destiné à se trou- 
ver en permanence à côte de l'ordi- 
nateur Apple Il. Son but est l'accès 
rapide à l'information : syntaxe des 
commandes, codes caractères, mes- 
sages d'erreurs, codes machine, 
adresses utiles. Il comporte égale- 
ment un recueil de 25 ‘trucs’ utiles, 
les “Comment... ?" 


144 pages - 100,00 FF 







L'Apple et ses fichiers 

par Jacques Boisgontier 

Pour apprendre progressivement la 
programmation des applications uti- 
lisant les fichiers, l'ouvrage com- 
mence par une présentation concise 
et illustrée des commandes du Sys- 
tème d'Exploitation Disque et des 
instructions du Basic Applesoft. Les 
instructions des fichiers séquentiels 
et à accès direct sont ensuite décri- 
tes ainsi que leur utilisation. Des 
méthodes pratiques, souvent mal 
connues, montrent comment utiliser 
au mieux des fichiers à accès direct : 
accès indexé, liste inverse. Une 
vingtaine de programmes illustrent 
l’utilisation de ces techniques. 


le livre : 176 pages - 90,00 FF 
La disquette d’accompagne- 
ment : 195,00 FF 
Pour Apple Il, Il plus, lle - Dos 3.3 - 
version 48 K ou plus. 


Multiplan pour Apple Il plus 
et //e 

par Hervé Thiriez 

Multiplan est un progiciel qui per- 
met de gérer plusieurs tableaux 
simultanément: cet ouvrage sera 
pour les possesseurs d'ordinateurs 
Apple Il Plus ou //e un véritable guide 
d'utilisation de Multiplan grâce à des 
exemples progressifs et à de nom- 
breux cas d'application (gestion de 
portefeuilles, de copropriété, feuille 
de paie, impôts, tableaux de bord, 
etc.). 

Le livre : 216 pages - 100,00 FF 
La disquette d’accompagne- 
ment : 195,00 FF 

Pour Apple Il plus, lle - Dos 3.3 - 
version 64 K ou plus (Disquette 
maitresse Multiplan indispensable). 


Visicalc sur Apple 

par Hervé Thiriez 

Après une présentation progressive 
du modele Visicalc, l'ouvrage étudie 
de nombreux cas d'application 
feuille d'impôt, gestion de copro- 
priété, paye, facturation... permet- 
tant d'introduire les différentes 
instructions et astuces d'utilisation 
Le livre : 176 pages - 90,00 FF 
La disquette d'accompagne- 
ment : 195,00 FF 

Pour Apple Il, Il plus, lle - Dos 3.3 - 
version 48 K ou plus (Disquette 
maitresse Visicalc indispensable) 


Pascal UCSD sur Apple Il 
par Jacques Rouault et Patrice Girard 
L'ordinateur Apple Il, le langage 
Pascal et le système d'exploitation 
UCSD forment à eux seuls le plus 
petit ensemble de micro-informati- 
que professionnelle. Une première 
partie de cet ouvrage est consacrée 
à l'étude de ces trois éléments. Sont 
ensuite abordés les programmes de 
mise en route. Enfin les types et ins- 
tructions Pascal UCSD sont étudiés 
en détail, ce qui permettra au lecteur 
de se rendre compte de la richesse 
mais aussi de la facilité d'emploi du 
Pascal. 


232 pages - 110,00 FF 


Gestion de fichiers 

et de périphériques 

pour Apple II / Pascal 

bar Hervé Haut 

Ce livre propose un moyen rapide 
et facile pour gérer les fichiers et les 
périphériques sur Apple. De la ges- 
tion de bibliothèque à l'utilisation 
des périphériques, l'auteur propose 
un ensemble de programmes utili- 
taires, écrits en Pascal. Un exposé 
des techniques les plus élaborées 
permettra d'atteindre le niveau suf- 
fisant pour utiliser les méthodes de 
programmation mises en œuvre. 


176 pages - 95,00 FF 


Les bases de données 

sur Apple II 

par Michel Keller 

L'objet de cet ouvrage est d'aider le 
lecteur à faire un choix parmi les 
nombreux logiciels existants sur 
Apple. Quatre de ces logiciels sont 
sélectionnés ici : PFS et PFS/Report 
- DB Master - CX BASE 200 - DBASE 
1. Pour chacun on trouve une des- 
cription détaillée du logiciel lui-même 
ete ses procédures de mise en route, 
de création de fichier, de saisie des 
données, de maintenance et d'édi- 
tion. L'auteur termine cette étude 
par l'exposé des avantages et des 
inconvénients inhérents à chaque 
logiciel 


144 pages - 85,00 FF 


Microbook : base de 
données pour Apple Il 

par Ted Lewis 

Microbook est un système de ges- 
tion de données et un outil de 
développement de programmes 
conçu pour transformer l'Apple Il en 
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un outil de classement de fichiers, 
de collecte et de recherche d'infor- 
mations, et de traitement de don- 
nées. C'est un ensemble de pro- 
grammes écrits en Pascal qui fait de 
l'ordinateur un véritable biblio- 
thécaire. 

Les emplois de Microbook sont 
multiples : il peut être utilisé pour 
quasiment toutes les applications où 
le stockage et la recherche de don- 
nées est importante. Les program- 
mes étant très longs, il est recom- 
mandé d'acheter également la dis- 
quette d'accompagnement, proposée 
en deux versions : l'une compilée, 
l'autre code source 


Le livre : 248 pages - 135,00 FF 


LES DISQUETTES 
D'ACCOMPAGNEMENT 
Microbook : base de données 
pour Apple Il 

par Ted Lewis 

volume MICRO 

Apple Il, 11 plus, //e et//c avec système 
Pascal disquette simple face, compi- 
lée, donc non modifiable. 


Prix : 195,00 FF 





Microbook : 
pour Apple Il 
par Ted Lewis 
volume SOURCE et volume UNIT 
Apple II, Il plus, //e et //c, avec sys- 
tème Pascal, disquette 2 faces enre- 
gistrées. 


Prix : 295,00 FF 


Le système Pascal ainsi que les consi- 
gnes d'utilisation des programmes 
contenus dans le livre sont indispen- 
sables. Cette disquette existe en 
deux versions : l’une, double 
face, destinée aux passionnés 
de la programmation en Pascal, 
qui pourront directement pro- 
grammer dans ce langage, et 
développer et étendre à leur 
gré les facultés du système. La 
seconde, compilée, simple face, 
destinée aux personnes qui ne 
connaissent pas la programma- 
tion en Pascal ou qui n'ont pas 
le temps de programmer elles- 
mêmes, et qui désirent utiliser 
directement les multiples pos- 
sibilités de Microbook. 

Tous les programmes proposés dans 
le livre sont présents dans chacune 
des disquettes, exceptés les ordres 
pour imprimante 
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Editeur de formes et curseurs 


Pom's 


Le Basic Microsoft du Macintosh au- 
torise l'emploi d'instructions graphi- 
ques très puissantes. C'est le cas de 
PUT, qui peut être utilisée de deux 
manières différentes : transfert d'une 
matrice de points stockée par GET 
dans un tableau de variables: trans- 
fert d'une matrice de points créée 
par le programmeur. La seconde so- 
lution est sans doute celle qui sera le 
plus souvent retenue, puisqu'elle per- 
met de concevoir des formes très 
précises, point par point. Etant don- 
née la haute résolution du Macin- 
toch, la conception d'une forme à 
l'aide d'une feuille de papier quadril- 
lée demande beaucoup de patience, 
ce qui nous à amené à écrire cet uti- 
litaire. 


Les formes ou curseurs créés avec 
l'éditeur sont, bien sûr, destinés à 
être utilisés par vos propres program- 
mes. Deux cas se présentent : 


1) Vous désirez que votre pro- 
gramme contienne la définition des 
formes ou curseurs sous forme de 
DATA. Dans ce cas, choisissez l'op- 
tion “Imprimer”, qui vous fournit une 
copie des fenêtres significatives, ainsi 
que tous les codes nécessaires à la 
constitution de la liste de DATA (en 
décimal et hexadécimal). Le sous- 
programme de copie d'écran est 
assez lent, puisqu'écrit en Basic, mais 
cette solution nous paraît plus élé- 
gante que l'emploi du classique 
LCOPY. De plus. ce sous-pro- 
gramme pourra être ultérieurement 
remplacé pas son équivalent en lan- 
gage machine: 


2) Vous désirez que le curseur ou la 
forme soit stockée sur disquette afin 
de charger sa définition directement 
depuis votre programme. Pour cela. 
il faut employer l'option ‘Enregis- 
trer'. Cette dernière solution est à 
notre avis la meilleure puisqu'il n'est 
pas nécessaire d'écrire les valeurs 
sous formes de DATA. ce qui permet 
un gain de temps non négligeable et 
économise de la place en mémoire 
(très important avec un Mac 
128Ko !) 


Le chargement de la définition d'un 
curseur à partir de votre programme 
ne pose pas de problème. puisque le 
nombre d'octets requis est invariable 
(voir l'article ‘Les routines en 
ROM”). Par exemple. pour charger 
un curseur baptisé préalablement 
“curseur” (qui à dit que nous man- 
quons d'imagination ?}. on peut utili- 
ser un segment de programme qui 
ressemblerait à 
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10‘ Chargement et 
modification du curseur 
standard 

20 DIM CR(33) 

30 OPEN"i",! "curseur" 

40 FOR 1%=0 TO 33 

50 INPUT #1,CR(12) 

60 NEXT 

70 CLOSE 

80 CALL SETCURSOR 
(VARPTR(CR(0))) 

90 GOTO 90 


La taille des formes créées avec l'édi- 
teur peut varier de lxl à 64»54 
points: il faut donc connaître le nom- 
bre d'octets nécessaires à leur repré- 
sentation. On peut utiliser la formule 
74 + NY x 2 « INT((INX + 15) / 
16)" mais cela oblige à faire le calcul 
et à noter le résultat sur un papier 
que l'on ne retrouvera pas forcé- 
ment. Une autre solution consiste à 
quitter le programme (retour au bu- 
reau) juste après avoir enregistré une 
forme car, lors de l'enregistrement, le 
nombre d'octets requis est transféré 
dans le presse-papier et peut être 
collé dans la ‘fenêtre d'information” 
de la forme. Lorsque l'on utilise des 
tableaux de variables entières, le 
nombre indiqué doit être divisé par 
deux. pour charger une forme de 64 
par 54 points (436 octets) baptisée 
“forme” (toujours autant d'imagina- 
tion ! ), on peut utiliser : 


10‘ Chargement et affichage 
d'une forme 64*54 

20 OPTION BASE 1 

30 DIMFR(218) 

40 OPEN"{",1,"forme” 

50 FOR 1%=1 TO 218 

60 INPUT#1,FR(1R) 


70 NEXT 

80 CLOSE 

90 PUT(10,10),FR 
100 GOTO 100 


Nous avons vu précédemment que la 
taille maximale autorisée par l'éditeur 
est de 64x54 points, mais il est par- 
faitement possible de regrouper plu- 
sieurs formes pour en constituer une 
plus grande. Les trois petits program- 
mes suivants réalisent le regroupe- 
ment de quatre formes baptisées 
formel” à ‘formed”, et ceci dans 
différentes configurations : 


10‘ Transformation de 4 
formes de 64*54 points en 
une forme de 64 points 


(horizontal) par 216 points 
(vertical) 

20 OPTION BASE 1 

30 DIMFIR(4,218) 

40 FOR 1%=1 TO 4 

50 OPEN'i",1,"forme”+ 
RIGHT$(STRS(12),1) 

60 FOR JR=1 TO 218 

70 INPUT #1 FIR(IR JR) 

80 NEXT 

90 CLOSE 

100 NEXT 

110 OPEN'o",1,"F" 

120 PRINT#1,64,216 

130 FOR 1%=1 TO 4 

140 FOR J%=3 TO 218 

150 PRINT #1,FIR(IR, JR) 

160 NEXT 

170 NEXT 

180 CLOSE 





10' Transformation de quatre 
formes 64*54 points en une 
forme de 256 points 
(horizontal) par 54 points 
(vertical) 

20 OPTION BASE 1 

30 DIMFI8(4,218) : 

40 FOR 1%=1 TO 4 

50 OPEN"i",1 "FORME" + 
RIGHTS$S(STRS(1R), 1) 

60 FOR J%=1 TO 218 

70 INPUT# 1 FIR(IR,JR) 

80 NEXT 

90 CLOSE 

100 NEXT 

110 OPEN"o",1,"F" 

120 PRINT#1,256,54 

130 FOR JR=0 TO S3 

140 FOR 1%=1 TO 4 

150 FOR KR=3 TO 6 

160 PRINT# 1 FIR(IR,JR*4+KR) 

170 NEXT 

180 NEXT 

190 NEXT 

200 CLOSE 


10' Transformation de 4 
formes de 64*54 points en 
une forme de 128 points 
(horizontal) par 108 points 
(vertical) 

20 OPTION BASE 1 

30 DIMFIR(4,218) 

40 FOR 18=1 TO 4 
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50 OPEN"{",1,"forme”+ 
RIGHT$(STRS(1R), 1) 

60 FOR JR=1 TO 218 

70 INPUT# 1 ,FIR(IR, JR) 

80 NEXT 

90 CLOSE 


Pour charger et afficher à partir de 
votre programme une forme ainsi 
constituée 


10° Chargement et affichage 
d'une forme constituée à 
partir de quatre formes 


e Le plus petit programme ne sera 


utilisé qu'une seule fois, afin de 
créer les fichiers XP et XL qui se- 
ront ensuite appelés par le pro- 
gramme principal. Cette solution 
n'est peut-être pas la plus simple 
mais s'imposait puisque la mé- 


100 NEXT 

110 OPEN"0o",1,"F" 

120 PRINT#1,128,108 
130 FOR 1#8=0 TO 2 STEP 2 
140 FOR J#=0 TO 53 

150 FOR K&=1 TO 2 

160 FOR L&=3 TO 6 


64*54 
20 OPTION BASE 1 
30 DIMF(866) 
40 OPEN"i",1,"F" 


60 INPUT #1,FR(1%) 


170 PRINT #1,FIR(IR+KR,JR*4+L 2) JANET 
180 NEXT 80 CLOSE 
90 PUT(10,10),FR 
190 PERT 100 GOTO 100 
200 NEXT 
210 NEXT 
220 CLOSE tuer en deux temps : 


50 FOR 1%=1 TO 866 


La saisie du programme doit s'effec- 


moire disponible sur un 128Ko ne 
permettait pas l'intégration des 
DATA dans le programme princi- 


pal. 
e Le programme principal doit être 
entré tel quel: il ne faut pas ajou- 


ter quoi que ce soit si vous ne 
voulez pas obtenir un splendide 
‘Memory full”. D'autre part, lors 
de la première sauvegarde, il est 
nécessaire de mettre la ‘fenêtre de 
sortie” à sa taille maximum pour 
éviter un éventuel "scrolling” lors 
de l'exécution. = 


a ——————————_—_—_—_ Ze 


1 ‘Programme de création des fichiers XL et XP, 
utilisés par le programme principal. 
10 DATA 24,155,32,0,88,0,140,0,262,0,515,0,1025,-32768, 
2048,-16384,4096,24576,8192 
20 DATA 12288,16384,6144,-249,-1024,16135,-512,263,0, 
263,0,263,0,263,0,263,0,263,0 
30 DATA 263,0,263,0,263,0,511,0,127,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,32,0,104,0 
40 DATA 184,0,312,0,568,0,1080,0,2104,0,4159,-1024, 
8192,1792,16384,1792,-32768, 1 792 
50 DATA 16384,1792,8192,1792,4159,-256,2111,-256,1080, 
0,568,0,312,0,184,0,120,0,56,0 
60 DATA 8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8224, 
8192,22616,22528,-29556 
70 DATA -29696,18183,7680,8962,15360,4484,30720,2248, 
-4096,5233,-8192,8739,-4096 
80 DATA 16647,-26624,-113,-1024,16135,-512,547,0,1137, 
-32768,2296,-16384,4580,24576 
90 DATA 9158,12288,18311,6144,-28921,-29696,24327, 
24064,15623,15360,2559,2048, 127 
100 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,28,0, 
22,0,19,0,17,-32768,16,-16384 
110 DATA 16,24576,-16,12288,-32768,6144,-32768,3072, 
-32768,1536,-32768,3840,-32768 
120 DATA 7680,-16,15360,16368,30720,16,-4096, 17, 
-8192,19,-16384,23,-32768,31,0,22,0,4 
130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,508,0, 
263,0,263,0,263,0,263,0,263,0 
140 DATA 263,0,263,0,263,0,263,0,263,0,-249,-2048, 
16384,7680,8192,15360,4096,30720 
150 DATA 2048,-4096,1025,-8192,515,-16384,263,-32768, 
143,0,94,0,60,0,8,0,64,54,8,2 
160 DATA 2047,-8192,4,4,6144,6144,6,12,8192,1024,6,12, 
18201,-11776,6,12,17573,4608,5 
170 DATA 16276,18213,-28160,2,-16280,17573,512,1,16, 
10009,4608,2,8,4096,1024,2,32712 
180 DATA 6143,-2048,4,-17500,10240,0,4,7940,-4096, 
24576,4,8324,0,-28672,30,16463,1 
190 DATA 2048,106,16458,-16382,25600,479,8351,28676, 
-28160,691,-8327,-22519,2304 
200 DATA 1377,-16,-11246,1152,2772,-27,27174,1088, 
5504,16256,13605,22560, 1 1008,0 
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210 DATA 6802,-20336,13824,0,3465,24840,27648,21824, 
1732,-15852,21525,21,1346,42 

220 DATA -22208,0,21155,-1,-10240,0,866,1,-22528,0, 
674,17477,-12287,21840,354,-30583 

230 DATA -20140,5,20898,-30583,21504,0,1346,-30583, 
28672,0,450,-30583,12288,0,386 

240 DATA -30583,12624,1,20866,-30583,6149,21844,770, 
-30583,2048,0,514,-24695,2560 

250 DATA 0,2562,-8087,1192,2,-23549,-31463,1026, 
-21848,1026,8261,512,0,3074,-32747 

260 DATA 808,2,-26620,3,386,10888,12293,11,194,16456, 
24584,2049,100,-32732,-16374 

270 DATA 7173,60,-32729,-32760,3585,24,-7965,10,1797, 
9,-14,8,897,9,-14,8,257,4,-28,5 

280 DATA 11,4,-24796,4,3,226,24776,-8190,-32747,791, 
20829,6146,8261,7176,4354,1795 

290 DATA -30183,24576,8320,194,24673,16383,-16257, 
-125,-1 

300 OPEN "O”,1,"XL".FOR 1%=1 TO 312:READ NR:PRINT #1 NZ: 
NEXT:CLOSE 

310 OPEN “O”,1,"XP"FOR 1%=1 TO 218:READ NR:PRINT® | NZ: 
NEXT:CLOSE:END 


Programme Principal 


10 CLEAR,22000, 1024:CALL HIDECURSOR: 
ON ERROR GOTO 2210:DEFINT A-V:DEFSTR W-Z: 
OPTION BASE 1:DIM C(34),D(34),R(4),P(4), (1604), H(16), 
E(18),F(9),1(312),0(554),Q(218) 

20 DATA” Voulez-vous...,1 e Créer un curseur, 
2 e Créer une forme,3 e Reprendre un curseur, 
4 e Reprendre une forme,S e Quitter 

30 DATA 32,80,80,72,36,32754,-32759,32713,2085, 1987, 
1057,963,508,0,0,0,32,112,112,120,60,32766,-1,32767, 
4095,2047,2047,1023,508,0,0,0,6,0 

40 DATA 1 e Point chaud,2 e Enregistrer,3 e Imprimer, 
4 e Curseur,S e Effacer,6 e Grille,7 e Quitter 

50 DATA 512,512,512,512,512,1792,-520,1792,512,512, 
512,512, 512 

60 DATA 16382,16385,20473,20485,20485,20485,20485, 
20485,20473,16385,16385,20605,16385,12282,8194, 
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16382,16382,32767,32767,28679,28679,28679,28679, 
28679,32767,32767,32767,32767,32767,16382,16382, 
16382,5,8 
70 DATA -32768,16384,8192,4096,2048,1024,512,256, 128, 
64,32,16,8,4,2,1 
80 DATA La position du point chaud n'étant pas, 
“établie, les valeurs assumées sont :”,X = O,Y = 0 
90 DATA 0 Effacer, 1 Ajouter ligne,2 Supprimer ligne, 
3 Ajouter colonne,4 Supprimer colonne,S Imprimer, 
6 Enregistrer, 7 Grille,8 Quitter,9 Décaler 
100 DATA 8184,16380,32766,-1,-16381,-10021,-1425S3, 
-9509,-12213,-9509,-16381,-1,32766,16380,8184,0, 
8184,0,0,32766,32766,32766,32766,32766,32766, 
32766,32766,32766,0,0,8184,0,7,7 
110 OPEN"i",1,"XL",6:FOR 1=1 TO 312:INPUT#1,I(1):NEXT:CLOSE: 


OPEN"i",1,"XP",6:FOR 1=1 TO 218:INPUT #1 ,Q(I):NEXT:CLOSE: 


RESTORE 70:FOR 1=1 TO 16:READ H(I):NEXT:FOR 1=3 TO 9: 
F(1)=-1: NEXT:WV=" Voulez-vous “:H=-16:WIDTH “Ipt1:",255 

120 CALL TEXTFONT(O):CALL MOVETO(2,12):PRINT “© Pom's et 
JLB”":GET(3,3)-(99, 12), MLINE(3,3)-(99,12),30,BF-J=0: 
BI=501874lAl=VARPTR(M(1))+4FOR I=1 TO 10: 

FOR J=0 TO 13:POKE Bl+J,PEEK(AL):Al=Al+ 1:NEXT:BI=Bl+64: 
NEXT 

130 GOSUB 21 70:RESTORE:FOR I1=1 TO 4P(I)=O:NEXT: 

CALL BACKPAT(VARPTR(P(1))):CLS: 
LINE(44,30)-(444,86),,B:LINE( 148, 102)-(340,246),,B: 
LINE(150,104)-(338,122),,B 

140 FOR 1=128 TO 224 STEP 24LINE (320,1)-(335,1+15),,B: 
LINE(335,1)-(320,1+1S)LINE(335,1+15)-(320, 1): 
LINE(322,1+2)-(333,1+13),,B: 
LINE(323,1+3)-(332,1+12),30,BF:NEXT: 

LINE (150,247)-(340,247) 

150 LINE (46,87)-(446,87).CALL PENSIZE(2,2): 
LINE(49,35)-(439,81),,B:LINE(341,103)-(341,246): 
LINE(445,31)-(445,86) 

160 GOSUB 1790:CALL PENPAT(VARPTR(P(1))}: 

CALL PENSIZE(4,4):P(1)=31:P(2)=45:P(3)=86:P(4)=444; 
CALL FRAMERECT(VARPTR(P(1))):CALL PENNORMAL 

170 CALL TEXTFONT(1):CALL TEXTSIZE(24):CALL TEXTFACE(1 ): 
CALL MOVETO(64,66):PRINT “Pom's”:CALL TEXTMODE(1 ): 
CALL TEXTSIZE(14):CALL TEXTFACE(O):CALL TEXTFONT(S): 
CALL MOVETO(192,62):PRINT'Editeur de formes et 
curseurs” 

180 CALL TEXTSIZE(12):CALL TEXTFONT(O)FOR 1=118 TO 238 
STEP 24CALL MOVETO(152,I):READ W:PRINT W:NEXT 

190 R(1}=40:R(2)=S4R(3)=77:R(4)= 1 49: 

CALL INVERTROUNDRECT(VARPTR(R(1)),18,18):R(1)=106: 
R(2)=152:R(3)=121:R(4)=2337 

200 FOR 1=1 TO 34:READ D(I):NEXT: 

CALL SETCURSOR(VARPTR(D(1)))CALL SHOWCURSOR: 
PUT(420,226),Q 

210 W=INKEYS:IF W<>"" THEN 230 ELSE IF MOUSE(O)<0 THEN 
240 ELSE 1=1+1:1F 1=50 THEN 
CALL INVERTRECT(VARPTR(R(1))}:1=0 

220 GOTO 210 

230 N=ASC(W):IF N<49 OR N>53 THEN 210 ELSE N=N-48: 

GOTO 260 

240 IF MOUSE(1)<321 OR MOUSE(1)>334 THEN 210 ELSE 
A=MOUSE(2) 

250 IF A>128 AND A(143 THEN N=1 ELSE IF A>152 AND A<167 
THEN N=2 ELSE IF A>176 AND A<191 THEN N=3 ELSE IF 
A>200 AND A<215 THEN N=4 ELSE IF A>224 AND A<239 
THEN N=5 ELSE 210 

260 P(1)=105+24*N:P(2)=321:P(3)=P(1 )+ 1 4:P(4)=335; 
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FOR 1=0 TO 21:CALL INVERTRECT(VARPTR(P(1))}: 
FOR D=0 TO SO:NEXT:NEXT:GOSUB 1 790: 
CALL BACKPAT(VARPTR(P(1))):CLS: 
ON N GOTO 290,990,280,970 

270 CALL HIDECURSOR:WIDTH “lpt1:",96:GOSUB 2150: 
GOSUB 1860:CALL TEXTFONT(6).CALL TEXTSIZE(18): 
CALL MOVETO(132,145). PRINT “Retour au bureau...”: 
SYSTEM 

280 E=0:GOTO 300 

290 E=1 

300 DIM A(18),B(18)LINE(338,26)-(461,197),30,BF: 
LINE(130,210)-(204,262),30,BF 

310 FOR 1=26 TO 178 STEP 1S2:LINE(I,26)-(1+132,190),30,BF: 
LINE(I,26)-(1+132,190),,B:LINE(I+2,28)-(1+130,52),,B: 
LINE(I+2,54)-(1+130,58),,BF:LINE(I+2,191)-(1+134,191): 
CALL PENSIZE(2,2YLINE(I+133,27)-(1+133,190): 
CALL PENNORMAL:NEXT 

320 F=1:GOSUB 1810:CALL MOVETO(68,44):PRINT “Curseur”: 
CALL MOVETO(220,44):PRINT “Masque” 

330 LINE(340,28)-(460, 196),,B:LINE(338,26)-(462, 198),,B: 
FOR 1=52 TO 196 STEP 24LINE(340,1)-(460,1): 
CALL MOVETO(348,1-8):READ W:PRINT W:NEXT 

340 LINE(340, 199)-(464, 1 99):LINE(132,212)-(202,260),,B: 
LINE(130,210)-(204,262),,B:LINE(132,263)-(206,263): 
CALL PENSIZE(2,2)LINE(205,21 1)-(205,262): 
LINE(463,27)-(463,198)CALL PENNORMAL 

350 F(1)=7:F(2)=7:U=0:V=0:G=1:B20:A(1)=16:A(2)=16B(1)=16: 
B(2})=16:CALL SETCURSOR(VARPTR(C(1))):1F E THEN 410 

360 GOSUB 2150:GOSUB 1850 

370 Z="" 

380 GOSUB 19S0:IF A THEN N=1:GOTO 940 ELSE OPEN “i”,1,2,6 

390 FOR 1=3 TO 18:INPUT#1,A(I}NEXT:FOR 1=3 TO 18: 
INPUT #1 ,B(L):NEXT:INPUT # 1 ,V,U:CLOSE: 
IF V AND H OR U AND H THEN ERROR 57 

400 PUT(108,92),M,PSET:PUT(148,228),A:PUT(172,228),B: 
PUT(28,60)-(155,187),A,OR:PUT(180,60)-(307,187),B,0R: 
B=1 

410 W=INKEYS$:1F Wc"" THEN 550 ELSE IF MOUSE(0)©-1 THEN 
410 

420 P=MOUSE(1):Q=MOUSE(2)IF P>340 AND P<460 AND G>28 
AND Q<196 THEN N=(Q-4)\24:GOTO 560 

430 I=POINT(P,Q) AND 1! 

440 |F Q<61 OR Q>187 THEN 410 

450 IF P>28 AND P<156 THEN 510 

460 IF P<181 OR P>307 THEN 410 

470 WHILE MOUSE(O)<0:R=(MOUSE( 1 )-1 72)\8: 
S=(MOUSE(2)-52)\8:1F R-1 AND H OR S-1 AND H THEN 500 

480 J=R*8+173:K=5S*8+53:S=2S+2:1F | THEN PUT(J,K),F,PRESET: 
B(S)=B(S) AND NOT H(R) ELSE PUT(J,K),F,PSET: 
B(S)=B(S) OR H(R) 

490 PUT(172,228),B,PSET 

500 WEND:GOTO 410 

510 WHILE MOUSE(0)<0:R=(MOUSE( 1 )-20)\8: 
S=(MOUSE(2)-52)\8:1F R-1 AND H OR S-1 AND H THEN 540 

520 J=R*8+21:K=5*8+53:S=2S+2:1F | THEN PUT(J,K),F,PRESET: 
A(S)=A(S) AND NOT H(R) ELSE PUT(J,K),F,PSET: 
A(S)=A(S) OR H(R) 

530 PUT(148,228),A,PSET 

540 WEND:GOTO 410 

550 N=ASC(W)-48:1F N<1 OR N>7 THEN 410 

560 R(1)=5+24*N:R(2)=341'R(3)=R(1 )+23:R(4)=460: 
FOR 1=0 TO 21:CALL INVERTRECT(VARPTR(R(1 )))}: 
FOR D=0 TO SO:NEXT:NEXT: 
ON N GOTO 570,630,700,790,840,880,910 








570 RESTORE 60:FOR 1=1 TO 34READ D(I):NEXT:R(1 )=30: 
R(2)=30:R(3)=5 1 'R(4)= 155; 
CALL INVERTRECT(VARPTR(R(1 ))): 
CALL SETCURSOR(VARPTR(D(1))) 

580 IF MOUSE(O)=-1 THEN P=MOUSE(1 ):Q=MOUSE(2): 
U=(P-28)\8:V=(Q-60)\8: 
IF (U AND H OR V AND H)=0 THEN 600 

590 GOTO 580 

600 P(1)=60+8*V:P(2)=28+8*U:P(3)=P(1)+8:P(4)=P(2)+8: 
FOR 1=0 TO 21:CALL INVERTRECT(VARPTR(P(1))}: 
FOR D=0 TO SO:NEXT:NEXT: 
CALL INVERTRECT(VARPTR(R(1))): 
IF G THEN C(33)=6:C(34)=6 ELSE C(33)=V:C(34)=U 

610 B=1:CALL SETCURSOR(VARPTR(C(1))):GOTO 410 

620 Enregistrer 

630 IF B THEN 650 ELSE GOSUB 2150:60SUB 1850: 
GOSUB 1920:RESTORE 80:FOR 1=116 TO 164 STEP 16: 
CALL MOVETO(124,I):READ W:PRINT W:NEXT:GOSUB 2070 

640 IF D THEN 670 

650 GOSUB 2150:1F B THEN GOSUB 1850 ELSE GOSUB 1860 

660 GOSUB 1950:1F À THEN 670 ELSE OPEN "0”,1,2,6: 
FOR 1=3 TO 18:PRINT#1I,A(I)NEXT:FOR 1=3 TO 18: 
PRINT #1 ,B(1):NEXT PRINT # 1 ,V,U:CLOSE 

670 PUT(108,92),M,PSET 

680 IF MOUSE(0)<0 THEN 680 ELSE 410 

690 ‘Imprimer 

700 GOSUB 2150:GOSUB 1850:CALL MOVETO(124,124). 
PRINT WV “imprimer ?":GOSUB 1920:6G0SUB 2070 

710 IF D THEN 670 ELSE PUT(108,92),M,PSET 

720 CALL HIDECURSOR:P=270 Q=224R=470:5=272: 
GOSUB 1850:CALL MOVETO(290,25 1 }: 
PRINT “Impression..":P=26Q=PR=158: S=190: 
W1="F0001"LPRINT CHR$(24);:GOSUB 1880 

730 LPRINT CHR$(24) CHR$(27) “r* CHR$(31) *?" CHR$(3 1)" 
CHR$(27) “f”:P=178Q=26.R=310:S=190:W1="F0280" 
GOSUB 1880 

740 LPRINT CHR$(24) CHR$(31) "3" ;:W1="F0001"P=130Q=210; 
R=2045=262GOSUB 1880 

750 LPRINT CHR$(27) “r” CHR$(31) 7" CHR$(31) "7" CHRS(T1) 
5° CHR$(24) CHR$(27) “c° 

760 W="000":FOR 1=3 TO 18:LPRINT TAB(26):USING'###*#2x" 
ACL): Y=HEXSCA(L)): X="$"+LEFT$(W,4-LEN(Y))+Y:LPRINT 
TAB(35);X;TAB(73), USING'*####2#"p(1):Y=HEX$(B(1)): 
X=°$"+ LEFT$(W,4-LEN(Y))+Y:LPRINT TAB(81),X:NEXT 

770 LPRINTLPRINTLPRINT TAB(26);"Point chaud : x =” 
U°/ y =" VPUT(270,224),M,PSET:CALL SHOWCURSOR: 
GOTO 410 

780 ‘Curseur 

790 IF G=0 THEN 810 ELSE A=l:FOR 1=3 TO 18:1F A(1) THEN A=0 

800 NEXT:IF A THEN 410 

810 IF G THEN G=0:C(33)=V:C(34)=U:FOR i=1 TO 16: 
C(1)=A(1+2):NEXT:FOR 1=17 TO 32:C(1)=B(1-14): 
NEXT ELSE G=1:GOSUB 2170 

820 CALL SETCURSOR(VARPTR(C(1))):GOTO 410 

830 ‘Effacer curseur 

840 GOSUB 2150:G0SUB 1850:CALL MOVETO(124,124) 
PRINT WV ‘effacer ?":GOSUB 1920:GOSUB 2070 

850 IF D THEN 670 ELSE PUT(108,92),M,PSET: 
LINE(28,60)-(156,188),30,BF: 
LINE(180,60)-(308,188),30,BF: 
LINE(140,220)-(196,252),30,BF:FOR 1=3 TO 18: A(1)=0: 
B(1)=O:NEXT:IF F THEN GOSUB 1810 

860 U=0:V=0:B=0:GOTO 410 

870 ‘Grille curseur 
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880 IF F THEN F=0 ELSE F=1 

890 GOSUB 1810:GOT0 410 

900 ‘Quitter curseur/forme 

910 N=1:GOTO 930 

920 N=0 

930 GOSUB 2150:G0SUB 1850:GOSUB 1920: 

CALL MOVETO(124,116) PRINT WV “quitter ?”: 
GOSUB 2070:IF D THEN IF N THEN 670 ELSE 1340 

940 IF N THEN ERASE B 

950 ERASE ACALL HIDECURSOR:GOTO 130 

960 ‘Reprendre forme 

970 E=0:GOTO 1000 

980 ‘Créer forme 

990 E=1 

1000 DIM A(218) 

1010 A(1)=64:A(2)=54L=64M=S4RESTORE 100:FOR 1=1 TO 34: 
READ D(I):NEXT:F(1)=4F(2)=4F=1 

1020 LINE(358,3)-(458,93),30,BF:LINE(358,3)-(458,93),,8: 
LINE(360,5)-(456,91),,B:LINE(360,94)-(460,94) 

1030 LINE(335,110)-(482,274),30,BF: 
LINE(335,110)-(482,274),,B: 
LINE(337,112)-(480,272),,BLINE(337,275)-(484,275) 

1040 CALL PENSIZE(2,2)LINE(459,5)-(459,93): 
LINE(483,111)-(483,274) 

1050 CALL PENNORMAL'RESTORE GO:FOR 1=128 TO 272 STEP 
16:LINE(337,1)-(480,1):CALL MOVETO(342,1-4):READ W: 
IF 12272 THEN PRINT W; ELSE PRINT W 

1060 NEXT.CALL SETCURSOR(VARPTR(C(1)))IF E THEN 1110 

1070 GOSUB 2150:GOSUB 1850:Z="" 

1080 GOSUB 1950:IF A THEN 950 ELSE OPEN "1”,1,Z,6 

1090 INPUT #1,L,MIF L<1 OR L>64 OR M<1 OR M 54 THEN ERROR 
S7 

1100 K=(L+1S)\I6:FOR 1=1 TO MFOR J=1 TO K: 

INPUT #1 ,A((1-1)#4+/J+2):NEXT:NEXT:CLOSE: 
PUT(108,92),M,PSET 

1110 LINE(3,3)-(L*S+7,M*5+7),30,BF: 
LINE(3,3)-(L*5+7,M*5+7),,B:GOSUB 1830: 
LINE(S,M*5+8)-(L*5+9,M*5+8) 

1120 CALL PENSIZE(2,2)LINE(L*5+8,4)-(L*5+8,M*5+7): 
CALL PENNORMAL.IF E THEN 1 140 

1130 PUT(S,5)-(324,274),A,0RPUT(376,21),A 

1140 IF M=54 THEN R(1)=129:GOSUB 2130 

1150 IF L=64 THENR(1)=161:GOSUB 2130 

1160 IF M=1 THEN R(1 )=145:GOSUB 2130 

1170 IF L=1 THEN R(1)=177:GOSUB 2130 

1180 W=INKEYS:IF WO°" THEN 1270 ELSE IF NOT MOUSE(0) 
THEN 1180 

1190 P=MOUSE(1):Q=MOUSE(2):1F MOUSE(O)=-1 THEN IF P>337 
AND P<481 AND Q>113 AND Q<274 THEN N=(Q-114)\16: 
GOTO 1280 

1200 I=POINT(P-(P MOD 5=0),Q-(Q MOD 5=0)) AND 1 

1210 IF P<S OR P>L*5+5S OR QXS OR QM*5+5 THEN 1 180 

1220 ‘Points forme 

1230 WHILE MOUSE(O)<0:R=MOUSE( 1 )\5:S=MOUSE(2)\S:IF R<1 
OR R>L OR S«1 OR S>M THEN 1260 

1240 JeR*S+ 1:K=S%5+ 1:T=((R+15)\16)+2:S=(S-1)*4+7T: 

IF | THEN PUT(J,K),F,PRESET:A(S)=A(S) AND NOT 
H(R-(16*(T-3))) ELSE PUT (J,K),F,PSET:A(S)=A(S) OR 
H(R-(16*(T-3))) 

1250 PUT(376,21),A,PSET 

1260 WEND:GOTO 1 180 

1270 N=ASC(W)-48:1F N<O OR N>9 THEN 1 180 

1280 IF (N=1 AND M=54) OR (N=2 AND M=1) OR (N=3 AND L=64) 
OR (N=4 AND L=1) THEN 1180 ELSE R(1)=113+16%*N: 
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R(2)=338:R(3)=R(1 )+ 15S:R(4)=480 

1290 FOR 1=0 TO 3:CALL INVERTRECT(VARPTR(R(1 ))): 
FOR D=0 TO SO:NEXT:NEXT:U=L*5:V=M#S:ON N GOTO 1370, 
1410,1440,1480,1510,1610,1650,920, 1680 

1300 ‘Effacer forme 

1310 GOSUB 2150:GOSUB 18SO:CALL MOVETO(124,124): 
PRINT WV ‘effacer 7":GOSUB 1920:60SUB 2070 

1320 IF D THEN 1340 ELSE PUT(108,92),M,PSET: 
LINE(S,5)-(S*L+5,5*M+5),30,BF: 
LINE(362,7)-(454,89),30,BF:FOR 1=3 TO 218:A(1)=O:NEXT: 
IF F THEN GOSUB 1830 

1330 GOTO 1180 

1340 PUT(108,92),M,PSET 

1350 IF MOUSE(0)<0 THEN 1350 ELSE 1 180 

1360 ‘Ajouter ligne 

1370 GET(3,V+1)-(U+9,V+7) MPUT(3,V+6),M,PSET: 
LINE(S,V+6)-(U+5,V+10),30,BF:LINE(S,V+13)-(U+9,V+13): 
CALL MOVETO(342,156):PRINT "2 Supprimer ligne” 

1380 M=M+1:1F F THEN LINE(S,V+10)-(U+5,V+10): 
FOR I=1 TO L+1:LINE(I*S,V+5S)-(1#5S,V+ 1O):NEXT 

1390 GOTO 1 140 

1400 ‘Supprimer ligne 

1410 LINE(376,20+M)-(439,20+M),30:GET(376,21)-(439,74),A: 
GET(3,V+6)-(U+9,V+7) MPUT(3,V+1),M,PSET:GOSUB 1 790 

1420 R(1)=V+3:R(2)=3:R(3)=R(1 )+6:R(4)=330;: 
CALL FILLRECT(VARPTR(R(1)), VARPTR(P(1))}: 
LINE(S,V+3)-(U+9,V+3):M=M-1:CALL MOVETO(342, 1 40): 
PRINT “1 Ajouter ligne”:GOTO 1160 

1430 ‘Ajouter colonne 

1440 GET(U+ 1,3)-(U+7,V+8) MPUT(U+6,3),M,PSET: 
LINE(U+6,5)-(U+10,V+5),30,BF:CALL PENSIZE(2,2): 
LINE(U+ 13,4)-(U+13,V+7):CALL PENNORMAL: 
CALL MOVETO(342,188).PRINT “4 Supprimer colonne” 

1450 L=L+1:1F F THEN LINE(U+10,5)-(U+10,V+5): 
FOR 1=1 TO M+1:LINE(U+S,1*5)-(U+ 10,1*S):NEXT 

1460 GOTO 115C 

1470 ‘Supprimer colonne 

1480 LINE(375+L,21)-(375+L,74),30:GET(376,21)-(439,74),A: 


GET(U+6,3)-(U+7,V+8),MPUT(U+ 1,3),M,PSET:GOSUB 1 790: 


R(1 }=3:R(2)=U+3:R(3)=V+9:R(4)=R(2)+ 10 

1490 CALL FILLRECT(VARPTR(R(1)), VARPTR(P(1))): 
CALL PENSIZE(2,2):LINE(U+3,4)-(U+3,V+7}L=L-1: 
CALL MOVETO(342,172):PRINT “3 Ajouter colonne”: 
CALL PENNORMAL:GOTO 1 170 

1500 ‘imprimer forme 

1510 GOSUB 2150:G0SUB 1850:CALL MOVETO(124,124): 
PRINT WV “imprimer ?":GOSUB 1920:GOSUB 2070 

1520 IF D THEN 1340 ELSE PUT(108,92),M,PSET 

1530 CALL SETCURSOR(VARPTR(D(1)))P=2328:Q=214R=488: 
S=262:6G0SUB 1850:CALL MOVETO(333,241):PRINT 
“Impression..":P=3:Q=PR=L*5+7:S2M*5+7.W1="F0000": 
LPRINT CHR$(24);: GOSUB 1880 

1540 LPRINT CHR$(24) CHR$(31) *1":P=358Q=3:R=458:S=93; 
GOSUB 1880 

1550 LPRINT CHR$(31);"1";CHR$(24).CHR$(27);"c";: 
O=(L+15)\16:P=1: R=1:W="O00":LPRINT “largeur :”;L; 
/ hauteur :";M; 4+M*2*((L+15)\16);"octets”:LPRINT 

1560 FOR 1=1 TO MFOR J=1 TO O:IF R=1 AND P>1 THEN Q=P+5 
ELSE Q=P 

1570 LPRINT TAB(Q),USING "######";A((1-1)#4+/J4+2);: 
Y=HEXS$SCA((I-1)#4+J+2)):X="$"+LEFT$(W, 4-LEN(Y))+Y: 
LPRINT TAB(Q+7),X:R=R+1 

1580 IF R=33 THEN R=1:P=P+14LPRINT CHR$(27) “r” CHR$(31) 
7" CHR$(31) "7?" CHR$(31) “2° CHR$(27) “c’; 
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1590 NEXT:NEXT:PUT(328,21 4),M,PSET: 
CALL SETCURSOR(VARPTR(C(1))}GOTO 1 180 

1600 ‘Enregistrer forme 

1610 GOSUB 2150:GOSUB 1850 

1620 GOSUB 1950:1F A THEN 1340 ELSE OPEN “0”, 1,,6: 
PRINT #1 ,L,MO=(L+15S)\I6:FOR 1=1 TO MFOR J=1 TO O: 
PRINT #1,A((1-1)#4+/J+2)NEXT:NEXT:CLOSE 

1630 OPEN “clip:" FOR OUTPUT AS 1 LEN=6: 
PRINT #1,4+M*2%((L+15)\16);"octets":CLOSE:GOTO 1340 

1640 ‘Grille forme 

1650 IF F THEN F=0 ELSE F=1 

1660 GOSUB 1830:GOTO0 1 180 

1670 ‘Décaler 

1680 CALL INITCURSOR:P=370:Q=80:R=434:5=272:GOSUB 1850: 
PUT(391,99),1 

1690 IF MOUSE(0)©-1 THEN 1690 ELSE P=MOUSE(1): 
Q=MOUSE(2):1F P<386 OR P>418 OR Q<96 OR Q>255 THEN 
1690 ELSE N=(Q-96)\32 

1700 R(1)=297+32*N:R(2)=2387 R(3)=R(1)+31:R(4)=418: 
FOR 1=0 TO 3:CALL INVERTRECT(VARPTR(R(1))): 
FOR D=0 TO 20:NEXT:NEXT: 
ON N GOTO 1730,1740,1750,1760 

1710 P=376.Q=22 

1720 GOSUB 2190:GOTO 1690 

1730 P=377:Q=21:GOTO 1 720 

1740 PUT(370,80),M,PSET:GOSUB 2170: 
CALL SETCURSOR(VARPTR(C(1))):GOTO 1350 

1750 P=375:Q=21:GOTO 1 720 

1760 P=376:Q=20:GOTO 1720 

1770 'Sous-programmes 

1780 'Backpat/Penpat 

1790 FOR 1=1 TO 4:P(1)=&HSSAANEXT:RETURN 

1800 ‘Grille curseur 

1810 C=30 OR F:FOR 1=28 TO 180 STEP 152: 
FOR J=1 TO 1+128 STEP 8:LINE(J,60)-(J, 188),C:NEXT: 
FOR J=60 TO 188 STEP 8:LINE(I,J)-(1+128,J),C:NEXT: 
NEXT:RETURN 

1820 ‘Grille forme 

1830 C=30 OR F:J=L*5+5K=M*5+5S:FOR 1=5 TO J STEP 5: 
LINE(I,5)-(1,K),C:NEXT:FOR 1=5 TO K STEP 5: 
LINE(S,1)-(J,1),C:NEXT:RETURN 

1840 ‘Cadre message 

1850 GET(P,Q)-(R,S),M 

1860 LINE(P,Q)-(R,S),30,BF:LINE(P,Q)-(R,S),,B: 
CALL PENSIZE(2,2)LINE(P+2,Q+2)-(R-2,5-2),,B: 
CALL PENNORMAL:RETURN 

1870 ‘Impression 

1880 LPRINT CHR$(27) ">" CHR$(27) “n° CHR$(27) TT 14"; 
W=STR$(R-P+1):Y=SPACES(4-LEN(W))+W:0=S-Q+ 1:T=0\7: 
IF O MOD 7 THEN T=T+1 

1890 FOR I=1 TO T:W="":FOR J=P TO R:N=0:FOR K=0 TO 6: 
O=(1-1)*7+K+Q:1F 0>S THEN 1900 ELSE IF POINT(J,0) AND 
1 THEN N=N OR H(15-K) 

1900 NEXT:W=W+CHR$(N):NEXT:LPRINT CHR$(27) WI CHR$(27) 
*G" Y W:NEXT:RETURN 

1910 ‘OK/Annuler 

1920 CALL MOVETO(228,156):PRINT “OK”: 
CALL MOVETO(308,156):PRINT “Annuler”:R(1 }=140: 
R(2)=196:R(3)=164R(4)=276: 
CALL FRAMEROUNDRECT(VARPTR(R(1)), 12,12) 

1930 R(2)=292:R(4)=372: 
CALL FRAMEROUNDRECT(VARPTR(R(1 )), 12,12): 
CALL PENSIZE(2,2)R(1 }= 1 36:R(2)=192:R(3)= 168: 
R(4)=280:CALL FRAMEROUNDRECT(VARPTR(R(1 )),20,20): 
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CALL PENNORMAL:RETURN 

1940 'Saisie nom fichier 

1950 CALL MOVETO(124,124)PRINT “Nom du fichier ?”: 
CALL MOVETO(308,124)PRINT “Annuler”:R(1)=108: 
R(2)=292:R(3)=132:R(4)=372: 
CALL FRAMEROUNDRECT(VARPTR(R(1)),12,12} 
LINE(116,140)-(380,164),,B 

1960 E(1)=1:E(2)=16:FOR 1=3 TO 18:E(1)=-1:NEXT: 
CALL TEXTFONT(4)FOR 1=1 TO 4:P(I)="O:NEXT: 
CALL BACKPAT(VARPTR(P(1))):C=LEN(Z) 

1970 CALL MOVETO(124,156):PRINT Z; 

1980 X=INKEYS$:IF XO"" THEN 2000 ELSE IF MOUSE(0)c-1 THEN 
A=A+l!:1F A(3O THEN 1980 ELSE 
PUT((POS(1)*7)-3,144),E:A=O:GOTO 1980 

1990 P=MOUSE(1):Q=MOUSE(2)1F P<292 OR P>371 OR Q<108 OR 
Q>131 THEN 1980 ELSE A=I:CALL TEXTFONT(O):RETURN 

2000 IF X=CHR$(13) THEN A=O:CALL TEXTFONT(O):RETURN ELSE 
IF X=CHR$(8) THEN IF C=0 THEN 1980 ELSE C=C-1: 
Z=LEFT$(Z,C)LINE(117,141)-(379,163),30,BF:GOTO 1970 

2010 IF C=36 THEN 1980 ELSE 
PUT((POS(1)#7)-3,144),E,PRESET:PRINT X;:2=7+XC=C+1 
GOTO 1980 

2020 X=INKEY$:1F XC>"" THEN 2040 ELSE IF MOUSE(0)O-1 THEN 
2020 

2030 P=MOUSE(1):Q=MOUSE(2}IF P<292 OR P>371 OR Q+<140 OR 
Q>163 THEN 2020 ELSE 2050 

2040 IF ASC(X)O 13 AND ASC(X)03 THEN 2020 

2050 P=108:Q=92:GOSUB 1! 860:RETURN 

2060 ‘Saisie OK/Annuler 

2070 W=INKEYS$.IF W©"" THEN 2100 ELSE IF MOUSE(0)o-1 
THEN 2070 

2080 P=MOUSE(1):Q=MOUSE(2).1F Q<140 OR Q>163 THEN 2070 

2090 IF P>195 AND P<276 THEN D=0:GOTO 2110 ELSE IF P>291 
AND P«372 THEN D=1:GOTO 2110 ELSE 2070 


54, rue de Dunkerque 
75009 PARIS Tél.: 282.17.09 
Métro: Gare du Nord (100 m) 


Diskettes U.S 51/4 SF/SD 
Diskettes 5”1/4 SF/DD 
Lecteur diskettes pour APPLE 
(mécan. Japonais, entr. direct) 
Carte synthétiseur de voix 

Carte mémoire/langage 16 K Ram 
Carte mémoire 128 K 

Carte drive 13/16 sect. 

Carte 80 colonnes 

Carte imprimante parallèle 
Carte imprimante + Buffer 32 K 
Carte série 

Carte super série 

Carte Z80 - CP/M 

Joystick de luxe 2 +, 2E, 2C 





Port Urgent ajouter 5,50 F 


2100 IF ASC(W)O 13 AND ASC(W)3 THEN 2070 ELSE D=0 

2110 RETURN 

2120 Caractères estompés 

2130 GOSUB 179O:CALL PENPAT(VARPTR(P(1))): 
CALL PENMODE(-1)R(2)=338:R(3)=R(1 )+ 1S:R(4)=479;: 
CALL PAINTRECT(VARPTR(R(1))): 
CALL PENNORMAL:RETURN 

2140 Coordonnées cadre message 

2150 P=108:Q=92:R=388:S= 1 B0:RETURN 

2160 ‘Curseur 

2170 RESTORE SOFOR 1=1 TO 13:READ C(I):NEXT: 
FOR 1=14 TO 32:C(1)=O:NEXT:C(33)=6:C(34)=6:RETURN 

2180 ‘Décalage 

2190 GET(P,Q)-(P+L-1,Q+M-1),0:PUT(376,21),0,PSET: 
PUT(S,5)-(L*5+4,M*5+4),0,PSET: 
GET(376,21)-(439,74),A:GOSUB 1830:RETURN 

2200 ‘Erreurs 

2210 CLOSE:GOSUB 1860:CALL MOVETO(324,156):PRINT “OK”: 
R(1)= 1 40:R(2)=292:R(3)= 164R(4)=372: 
CALL FRAMEROUNDRECT(VARPTR(R(1)),12,12): 
CALL MOVETO(124,124) 

2220 |F ERR=74 THEN PRINT “Volume inconnu l":GOTO 2290 

2230 IF ERR=64 THEN PRINT “Nom incorrect l":GOTO 2290 

2240 |F ERR=61 THEN PRINT “Disquette saturée l":GOTO 2290 

2250 IF ERR=70 THEN PRINT "Disquette protégée l":GOTO 2290 

2260 IF ERL=390 OR ERL=1090 OR ERL=1 100 THEN PRINT 
"Lecture impossible l":GOTO 2280 

2270 IF ERR=53 THEN PRINT ‘Fichier introuvable l” 

2280 GOSUB 2020:IF ERL=380 OR ERL=390 THEN RESUME 380 
ELSE RESUME 1080 

2290 GOSUB 2020:1F ERL=660 THEN RESUME 660 ELSE IF 
ERL=380 THEN RESUME 380 ELSE IF ERL=1620 THEN 
RESUME 1620 ELSE RESUME 1080 


SURPRIS .…. LES PRIX!!! 


PRIX T.T.C.! POUR APPLE ET COMPATIBLES 


139F/boiîte 10 (exp. min. 5 boîtes Port 27 F) 
170 F/boîte 10 (exp. min. 5 boîtes Port 27 F) 


Carte wilcard (déplombage) 
Carte communication 

Carte IEEE - 488 

Carte copieur Eprom 

Carte A/D - D/A 12 bit 
Carte horloge 

Carte musique 

Carte RGB + Prise TV Secam 
Carte 6522 Via 

Port pour une carte 

Ventilo 10 W. super silencieux 


NOUVEAU: Pince spéciale pour diskettes (100 000 trous min.) (port : 13 F) 69 F 
Ordinateur multicompatible Forth, Basic, CP/M, MS-Dos, CP/M86 


Écrivez, nous vous enverrons une liste plus complète de nos articles. 


Revendeurs, contactez-nous. 





Notre devise : ‘’DYNAMIT COMPUTER: MOINS CHER QUE MOI TU MEURS !” 
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| | Logiciels 
—— à —_—__——————— 
Î | Prolog il 
Basic Microsoft 
Mac Forth 
Macintosh Pascal 
Macintosh Basic 
| Pascal UCSD 





2! FileVision 

CX MacBase 
File 

Overvue 

AD MacFichier 
ABCbase 
MacStock 
PfsFile/Report 
MacLedger 
MacCash 
Minifact 





3! Thinktank 
Mega Merge 


Word 


4| Paris Création 
MacCrypt 
PoiyFiche 

Mac agenda 


S| Mac Terminal 

Telemac 

Telemac 

Mac Tell 
Macphone 





| 6| Mac Space 
| Mac Graph 
| Chart 


| 7! Agatha 

| MacDent 
MacDoc 
DoctorMac 
Transfu l'A B.0 
MacPharm 





6| MacJack 

MacSlots 

Jeux de mots 
Sargon Ill 
MacManager 
Reversi 

Boule de silicium 
Run for the money 
Mac Puzzle 
Transylvania 


9! MacProject 
| MacExpert 
| Slide ! 

Da Vinci 














Le compte est bon | 


Distributeur 


Prologia 
Microsoft France 
Feeder 

Apple 

Apple 

Bus 












Apple 
Controle X 
Microsoft France 
Apple 

Answare 

AC. 

M.CS. 

Sonotec 

Logiciel PC. 
Logiciel P.C. 

Idées informatique 


Gamic 
Feeder 
Microsoft France 


A.C.I. 
CÆERI.A. 
Polygone 
Gamic 


Apple 
Mediatec 
Mediatec 
Hello 
CEÆERI.A. 


ASA. 
M.C.S. 
Microsoft France 


C.D soft 

Dag informatique 
C.M.G 

JSR Informatique 
Transfu labo-serv. 
Inpharmez 


Answare 
| Feeder 
Hello 
Sonotec 
Feeder 
R.CI informatique 
Hyperlog 
Feeder 
Feeder 

| Feeder 
Polygone 





Apple 

Answare 

SL.I. Réalisations 
Gamic 














11/84 
11/84 
11/84 
11/64 
11/84 


12/84 
11/64 
09/84 


11/84 
11/84 
11/84 | 

NC | 
12/84 
11/84 





06/64 
09/84 
11/64 
11/84 
10/84 
11/84 | 
09/84 
09/84 
09/84 
09/84 
10/84 





Prix TTC 








MF1:1589,00 | Trois versions 


06/84 | 1694,00 

08/84 

11/84 1306,00 | 

12/84 1430,00 
7000,00 


2360,00 
2953,00 
2396.00 
4150,00 
2360,00 
3320,00 
1779,00 
2711,00 
NC 
2609,00 
NC 


1957,00 
NC 
2336,00 


390,00 
NC 


790,00 
1174,00 


990,00 
NC 
NC 
NC 
NC 


NC 
NC 
1411,00 


NC 
NC 
NC 
NC 
NC 
NC 


499,00 
824,00 

NC 

NC 
700,00 

NC 
475,00 
593,00 
322,00 
540,00 
295,00 








Langage d'intelligence artificielle 
Le plus répendu 














| Pascal interprété 
| Basic pascalien 
| Pascal compilé 
























Les informations en images 
Intègre calculs, graphisme, texte. 
Structure des fiches variable 
Tri multi-critères 

Main street file en français 
Expression multiforme 
Gestion de stocks 

Organisez votre système 
Comptabilité 

Livre de caisse 

Facturation simplifiée. 





















Traitement d'idées 
Personnalisation par le dessin 
Sur l'imprimante comme à l'écran 


Adresses 
Fichiers codes 
Carnet d'adresses 
Emploi du temps 





Emulation TTY, DEC, VT100... 
Emulation IBM 3270 
Emulation minitel 

Minitel intelligent 

Composeur téléphonique 





Graphisme en trois dimensions 
Décisionnel graphique 
Représentation graphique 











Gestion d'un cabinet dentaire 
Gestion d'un cabinet dentaire 
Pour médecins généralistes 
Données médicales 
Laboratoires d'analyses médicales 
Gestion d'une pharmacie 














Black Jack 
Deux jeux différents 

Réservé aux enfants 

Echecs. 9 niveaux de complexité 
Jeu de rôle 

Stratégie 

Votre autoportrait 

Aventure 













Aventure 
Jeu télévisé 






Planification des projets 
Système expert 

Plans d'architecture 
Bibliothèques de dessins 








| 1 - langages. 2 - gestion et comptabilité. 3 - traitement de textes. 4 - organisation. 5 - communication. 
| 6 - graphisme. 7 - médecine. 6 - jeux. 9 - divers. 
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Omnis 2 à l’essai 


Guy Lapautre 


Cet essai a été réalisé sur un Apple 
//e muni de deux lecteurs de disques 
souples. Notre impression générale 
sur ce logiciel de gestion de fichiers 
tient en deux mots: PUISSANT - 
COMPLEXE. 


Premier contact 


Enfin un bon Guide 
Pédagogique ! 


Ne parlons pas de ses qualités péda- 
gogiques proprement dites, on a déjà 
fait mieux; il manque en particulier 
certains fac simile d'écran. Mais il sé- 
pare TRES NETTEMENT l'essentiel 
(décrit dans un guide pédagogique 
simplifié), les options ou fonctionnali- 
tés plus complexes (réunies dans un 
guide pédagogique avancé) et les dé- 
tails supplémentaires d'usage moins 
courant (mentionnés seulement dans 
le manuel de référence). Exemple 
dont beaucoup pourraient s'inspirer. 


De nombreux logiciels proposent au- 
jourd'hui une disquette “Tutorial” 
pour les tous premiers pas. Compte 
tenu de la complexité d'Omnis 2, sur 
laquelle nous reviendrons, cette solu- 
tion aurait peut-être pu être retenue. 


Les disques 


Regrettons une ambiguïté dès le dé- 
part: après avoir montré le danger 
de travailler avec les disques origi- 
naux, on explique comment faire des 
copies des disques Program et Utili- 
ties (au passage : pourquoi pas Pro- 
gramme et Utilitaires ?). Mais on ex- 
plique aussi que le disque Boot ou 
System (même remarque), suscepti- 
ble pourtant des mêmes avanies que 
les autres, n’est pas copiable. Il y a là 
de quoi perturber grandement un 
néophyte. Ce n'est que beaucoup 
plus tard, en abordant la lecture du 
Manuel de Référence, qu'on est 
avisé d’avoir à commander au four- 
nisseur un double de ce disque. 


Les disques sont, comme nous 
venons de le voir, au nombre de 
trois. Chaque application. si minime 
soit-elle, nécessite de son côté deux 
disques : la “librairie” (les explica- 
tions concernant la dénomination de 
ce disque ne sont pas très convain- 
cantes) et le disque ‘data (données 
ne serait pas plus mal). 


Donc, aucun travail possible sans un 
minimum de cinq disques avec les- 
quels on doit jongler dans deux lec- 
teurs. De quoi décourager complète- 
ment un débutant. Comprenons bien 


que ce n'est pas une critique du logi- 
ciel, mais de la façon dont les choses 
sont présentées. La complexité est la 
rançon de la puissance, et on peut 
dire qu'Omnis 2 n'est pas fait pour 
être utilisé normalement par un ama- 
teur sur une configuration Apple //e 
avec deux disques souples. On peut 
pourtant lire dans le quide pédagogi- 
que (leçon 1): ‘Ce Guide Pédagogi- 
que part de l'hypothèse que vous 
n'avez pas ou peu d'expérience 
quant à l'utilisation d'un micro-ordi- 
nateur”. 


Dans cette hypothèse, l'opinion de 
l'auteur de ces lignes (qui n'engage 
que lui) est : abstenez-vous de débu- 
ter avec Omnis 2, et commencez par 
vous familiariser avec la micro-infor- 
matique en utilisant un logiciel moins 
performant, mais plus simple. 


Les commandes principales 


Elles utilisent de façon systématique 
la touche “ESCAPE”. La mode ac- 
tuelle est plutôt d'utiliser les touches 
"POMME”. Ne prenons pas parti. 
Les touches "POMME®" présentent 
l'avantage, étant non classiques, de 
servir assez normalement à tout ce 
qui n'est pas entrée de données. 
Mais elles sont spécifiques des ver- 
sions //e et //c, et d'autres comman- 
des doivent bien être adoptées pour 
les versions antérieures de l'Apple II. 


Il n'existe pas de commande (ou du 
moins n'en avons nous pas rencon- 
trée) dont on ne puisse pas sortir si 
on y est entré par mégarde. Voilà qui 
est rassurant. Seule la frappe inop- 
portune de ‘Q” dans le menu ‘sys- 
tem” peut renvoyer hors du pro- 
gramme. Ce n'est pas bien grave. 
aucune donnée n'étant alors perdue. 


La création d’une 
structure de fichier 


La puissance 


On peut à peu près tout faire dans 

ce domaine, qu'il s'agisse : 

e de la présentation des écrans: 

e de la définition des rubriques: 

e des nombreuses options de format 
qui leur sont associées: 

e des modes de contrôle des en- 
trées: 

e de la définition des rubriques cal- 
culées.…. 


On peut aussi (alors que c'est un 
point faible de nombreux logiciels de 
gestion de fichiers). modifier la struc- 


ture de fichiers existants sans perte 
d'informations. Au prix toutefois de 
nombreuses ‘jongleries” avec les dis- 
ques... 


Regrettons seulement : 


— la limitation à une ligne de l'en- 
semble nom d'écran + contenu: 

— Ja limitation à 7 caractères du nom 
de rubrique. 


La complexité 


La ligne de commandes n'est pas 
très simple à interpréter et le recours 
à l'écran S.OS. relativement fré- 
quent. 


Mais surtout, TOUTES les caractéris- 
tiques des rubriques sont à entrer 
sous forme de codes à un caractère 
(sauf la longueur). Les ‘assez classi- 
ques” C pour caractères ou N pour 
numériques sont simples à interpré- 
ter. Mais | où J pour les index selon 
leur nature, les codes de protection, 
de calcul. sont pratiquement im- 
possibles à retenir par coeur. 


Il n'est par exemple pas évident que 
l'attribut : 

+N2VE 

concerne une rubrique calculée, nu- 
mérique, 2 décimales, acceptant des 
valeurs négatives et réputée vide si la 
valeur calculée est égale à O (exem- 
ple du manuel de référence) ! 


Les formules de calculs et de vérifica- 
tion (très précieuses certes) utilisent 
de nombreuses fonctions qu'on ne 
trouve qu'en programmation. Par 
exemple LEN(..) pour le nombre de 
caractères d'une chaîne ou CON(...) 
pour une concaténation de chaînes, 
ou encore une formulation d'algèbre 
logique très particulière utilisant les 
signes ! et &. et ceci dès la leçon 4 
du guide pédagogique simplifié ! A 
noter que. dans d'autres cas, on em- 
ploie OÙ et ET en toutes lettres. 


La gestion de fichiers 
La puissance 


La multiplicité des détails utilisables 
dans la création des structures per- 
met de nombreux contrôles au ni- 
veau de la saisie. Le logiciel permet 
par exemple: 


e de ne pas entrer deux fois le 
même numéro de code, si celui-ci 
doit être unique: 

e de contrôler qu'on entre bien Mr. 
Mme ou Mlle et rien d'autre: 

e de vérifier quun code postal 
comporte 5 chiffres (ni 4 ni 6): 


Pom's n° 15 





un modem qui fait, d'un simple Apple, un Minitel intelligent 


Apple-tell comprend : 


e Une carte Modem incluant un d 
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e de choisir l'ordre d'entrée des ru- 
briques (et pas forcément celui de 
leur apparition sur l'écran)... 


Attention d'avoir sous la main une 
liste des contrôles effectués, sous 
peine de courir le risque de ne 
jamais remplir une fiche. par exem- 
ple en s'entêtant a mettre M. pour 
Monsieur au lieu de Mr. 


Très nombreuses possibilités égale- 
ment dans le domaine de la recher- 
che, du tri, de la sélection. Possibili- 
tés fort intéressantes de mise à jour 
et de suppression multiple, de reco- 
pie de données d'un enregistrement 
sur un autre. Très utile fonction de 
’hardcopie” d'écran, etc. 


La complexité 


Elle est moins grande dans l'exploita- 
tion que dans la création. Notons 
toutefois le même ésotérisme de la 
ligne de commande. 


L'utilisation des formats de recherche 
n'est pas toujours évidente. Remar- 
quons au passage que les signes "<” 
et >" veulent dire tantôt strictement 
plus petit (ou plus grand). tantôt infé- 
rieur (ou supérieur) ou égal ! 
Exemple (du quide pédagogique 
avancé) pour un format de mise à 
jour multiple : 


INDCLE = UPP ( CON ( MID 
(NOM. 1. 3). INITS)) 


Si ce n'est pas de la programmation. 
qu'est-ce que c'est ? 


Les états 


On pourrait à ce sujet faire les 
mêmes types de remarques que dans 
les paragraphes précédents. tant pour 
la puissance que pour la complexité. 
Ne lassons pas le lecteur et conten- 
tons-nous de deux remarques impor- 
tantes : 


Puissance : outre les classiques pro- 
ductions d'états et d'étiquettes, 
Omnis 2 possède un système très as- 
tucieux de production de lettres per- 
sonnalisées. 


Complexité : les codes de contrôle 
d'imprimante tels que le nombre de 
caractères par pouce, le souligne- 
ment... étant inclus dans la définition 
de l'état, un changement d'impri- 
mante nécessite une révision 
complète de toutes les structures 
d'états qui ont été définies (seules les 
options générales telles que longueur 
de la ligne, nombre de lignes par 
page... sont traitées à part). 


Les mots de passe 


Un système ingénieux et très complet 
de clés d'accès à 4 niveaux (plus le 
Maître. qui dit bien son nom...) peut 
être mis en place. 


La définition de ce qui est autorisé 
ou interdit à chacun est assez simple, 
mais longue à mettre en oeuvre. ne 
serait-ce que parce quon descend 
(ce qui est parfois précieux) au ni- 
veau de la rubrique élémentaire. en 
lecture et en écriture. 

Quand l'ensemble est créé. son utili- 
sation ne pose aucun problème. 


Les utilitaires 


Ils sont très complets. même s'ils ne 
sont pas toujours très simples à utili- 
ser: nous avons déja évoqué ce pro- 
blème à propos de la modification de 
structure des fichiers. 


Ils permettent. outre les classiques 
copies, destructions,  initialisations, 
compactages, … , de faire communi- 
quer Omnis 2 avec d'autres logiciels 
par l'intermédiaire de fichiers au for- 
mat DIF, et ce dans les deux sens. 
Un autre utilitaire permet des conver- 
sions entre Pascal et le DOS 3.3. 


Capacité et 
performances 


Seules limites de capacité rencon- 
trées: ce sont celles de l'Apple /’e 
avec deux disquettes: en fait. un dis- 
que dur s'impose. 

Que faire par exemple. avec cette 
pauvre configuration, de 131068 
blocs par fichier ou de 9600 rubri- 
ques dans un format d'état ? 


Seule limitation inhérente au logiciel. 
déja signalée : 79 caractères par ru- 
brique (V compris, le cas échéant, le 
“nom d'écran”). 


Ne disposant que d'une version “bri- 
dée” au niveau de 50 enregistre- 
ments, nous n'avons pu faire aucun 
essai de performances sur gros fi- 
chier. Il semble que les recherches de 
type T (sur rubriques indexées), 
soient toujours très rapides. alors que 
les tris et les recherches de type R ne 
le soient guère, même pour des fi- 
chiers relativement modestes : pour 
50 enregistrements, un tri ou une re- 
cherche simple durent environ 40 se- 
condes. 


Synthèse 


Nous avons écrit en exergue : PUIS- 
SANT - COMPLEXE. 


Les fonctions de création 


Création de structure de fichiers, for- 
mats d'états, mots de passe, sont to- 
talement hors de portée de l'utilisa- 
teur débutant. Même s'agissant d'un 
utilisateur confirmé de micro-informa- 
tique, il n'est pas évident qu'il n'y ait 
jamais de blocages. au niveau d'une 
codification très poussée, ou de l'uti- 
lisation de l'algèbre logique ou de 
véritables éléments de programma- 
tion. 


Mais celui qui aura la capacité (et le 
courage) d'aller jusqu'au bout sera 
récompensé par des performances 
exceptionnelles. surtout avec une 
configuration musclée”. 


Les fonctions de gestion 


La gestion de fichier et l'édition 
d'états sont plus accessibles, moven- 
nant deux précautions dès lors qu'il 
s'agit de néophytes : 

1 - Limiter leur travail aux cas où 
TOUS les paramètres sont bien défi- 
nis. V compris tris et sélections, et 
aux options fondamentales de ges- 
tion. en excluant la mise au point de 
tableaux de sélection par exemple. 


2 - Les munir d'une documentation 
synthétique, d'une part sur les 
commandes du logiciel qu'ils devront 
utiliser, d'autre part sur la codification 
adoptée (ceci n'est pas spécial à 
Omnis, mais d'autant plus important 
que les contrôles sont nombreux et 
sophistiqués). 


Nous sommes plus réservés sur la 
possibilité de faire mettre en oeuvre 
par n'importe qui les fonctions de 
gestion de disque, y compris les sau- 
vegardes. 


En résumé 


Un logiciel de tout premier plan. 
mieux adapté à une configuration 
comportant un disque dur, capable 
de satisfaire les plus exigeants et de 
constituer un outil complet pour une 
application dont la gestion de fichier 
constitue l'essentiel. 


Mais un logiciel à ne pas mettre entre 
toutes les mains. Ce n'est pas un re- 
proche : on peut mettre entre toutes 
les mains (ou à peu près...) une voi- 
ture de série, mais pas une formule 1 
ni un 60 tonnes Saharien. Le repro- 
che irait au fait que la documentation 
(et aussi la publicité) tendent à mini- 
miser exagérément ce fait. 





Ne soyez pas un a : si vous possédez un @, lisez 
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Ce cinquième article marquera la fin 
de notre revue de détail des instruc- 
tions de l'assembleur du processeur 
6502 qui équipe votre Apple II+ ou 
le 


Comme dans tout feuilleton moderne 
qui se respecte, nous aurons droit à 
quelques ‘flash-backs” sur des élé- 
ments importants de la vie du héros, 
la pile et le registre d'état en l’occur- 
rence, dont nous avons jusqu'à pré- 
sent laissé certains aspects dans l’om- 
bre. Le dictionnaire étant ainsi 
complété, vous pourrez désormais 
parler le 6502" couramment. 


Les interruptions et le 
BREAK 


Lorsque nous avons abordé le regis- 
tre d'état du microprocesseur dans le 
Pom's 13, certains indicateurs n'ont 
fait l'objet que d'une mention som- 
maire. Tel fut le cas pour le bit 2 (in- 
dicateur baptisé I comme Interrup- 
tion) et pour le bit 4 (indicateur B 
comme Break). Réparons dès main- 
tenant cette injustice. 


Interruptions du 6502 


Nous devrons nous limiter sur ce 
point à un exposé quelque peu théo- 
rique, car les signaux d'interruption 
ne peuvent être envoyés simplement 
au microprocesseur par le biais d’un 
programme. Ils viennent en effet des 
périphériques connectés à l'unité 
centrale, via les cartes d'interface et 
les slots” qui sont reliés au proces- 
seur. En résumé, un périphérique de- 
mande ainsi au 6502 de stopper 
l'exécution du programme en cours 
et de travailler momentanément pour 
lui, afin de lui transmettre les don- 
nées dont il a besoin pour s'acquitter 
de sa propre tâche, ou de recevoir 
les données qu'il est chargé de four- 
nir à l'ordinateur. Le terme ‘interrup- 
tion” ne signifie donc pas que le pro- 
cesseur s'arrête, bien sûr, mais qu'il 
cesse de travailler pour l’un et se met 
au service de l’autre. 


On distingue deux types d'interrup- 
tions, c'est-à-dire deux lignes reliées 
à deux broches différentes du 6502 : 
les interruptions masquables (dites 
IRQ) et les interruptions non mas- 
quables, ou prioritaires (dites NMI). 

Une interruption IRQ ne sera prise 
en compte par le processeur que si 
l'indicateur 1 (bit 2) de son registre 
d'état est à 0. En mettant cet indica- 
teur à 1, soit à partir d'un pro- 
gramme utilisateur, soit dans une 
routine d'interface d’une carte de pé- 
riphérique, on peut donc ‘’masquer” 
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tous les signaux IRQ qui pourraient 
arriver au processeur, jusqu'à ce que 
l'on ait remis le bit | à O. Par contre, 
quelle que soit la valeur de ce bit I, 
une interruption de type NMI sera 
toujours prise en compte et provo- 
quera l'arrêt de toute autre opéra- 
tion, même s'il s'agit du travail d’un 
périphérique ayant déjà interrompu 
le processeur par les lignes IRQ ou 
NMIL. 


Dans un cas comme dans l'autre, 
lorsqu’arrive une interruption, le pro- 
cesseur commence par achever l'ins- 
truction en cours. Il dépose ensuite 
au sommet de la pile le contenu du 
compteur ordinal, dans l’ordre octet 
haut / octet bas (rappelons que le 
compteur ordinal est un registre sur 
16 bits qui contient toujours l'adresse 
de la prochaine instruction à exécu- 
ter), puis il empile également le regis- 
tre d'état, après en avoir mis le bit 4 
(indicateur B) à O. 

S'il s'agit d'une IRQ, il saute alors à 
l'adresse contenue dans les mémoi- 
res $FFFE et $FFFF (en d'autres 
termes, il charge le compteur ordinal 
avec le contenu de $FFFE-$FFFF). 
Si c'est une NMI, en revanche, il 
saute à l'adresse contenue en 
$FFFA-$FFFEB. 

Notons bien que ces opérations sont 
programmées dans le processeur, 
c'est-à-dire que, quel que soit l’ordi- 
nateur étudié, le début du traitement 
d'une interruption sera celui indiqué 
ci-dessus si c'est un ordinateur cons- 
truit autour d'un 6502. Ce qui se 
passe ensuite dépend par contre de 
ce que les concepteurs de la machine 
ont mis aux adresses $FFFE-$FFFF 
et $FFFA-$FFFB. 


En ce qui concerne les Apple II+ et 
/le, on trouve en $FFFE-$FFFF les 
valeurs 40 FA”. Une IRQ branche 
donc finalement sur une routine dé- 
butant en $FA40, sur laquelle nous 
reviendrons un peu plus loin. 

En $FFFA-$FFFB, on lit ‘FB 03" et 
une NMI nous amènera donc en 
$3FB. Si vous mettez votre Apple 
sous tension sans charger le DOS, 
vous ne trouverez rien de significatif 
à cette adresse, mais si vous ‘’boo- 
tez” le DOS, vous y trouverez "4C 
65 FF” ou encore ‘JMP $FF65", 
c'est-à-dire un saut dans le moniteur. 
C'est évidemment au programmeur 
de périphériques qui entend utiliser 
les interruptions NMI qu'il appartient 
en fait de mettre aux adresses $3FB- 
$3FC-$3FD un JMP à l'adresse de 
sa routine de gestion des interrup- 
tions. 





Initiation à l’assembleur (5) 


Gérard Michel 


Instructions de l’assembleur 
liées aux interruptions 


e SEI (78) : met l'indicateur I à 1 
Les interruptions IRQ qui pourraient 
arriver après l'exécution de SEI se- 
ront donc masquées et ignorées. 
Ceci peut servir pour garder la prio- 
rité dans l’utilisation des ressources 
du microprocesseur (sauf en cas d'in- 
terruption NMI toutefois), que ce soit 
pour un programme utilisateur ou 
pour le travail d’un périphérique 
donné. Dans une routine de gestion 
des interruptions destinée aux divers 
périphériques, en particulier, l'emploi 
de SEI permet de sauvegarder les re- 
gistres non directement empilés par 
le processeur (accumulateur et regis- 
tres X et Y) ou de modifier éventuel- 
lement le vecteur IRQ (voir plus 
loin), sans craindre l'arrivée et la 
prise en compte d'une nouvelle inter- 
ruption qui jetterait la confusion dans 
le système. 

En effet, après l'exécution des routi- 
nes de service du périphérique ayant 
demandé l'interruption, on doit pou- 
voir reprendre le programme inter- 
rompu exactement à l'endroit où il a 
été stoppé et dans le même contexte, 
ce qui suppose que l’on puisse bien 
sauvegarder tous les registres, au 
moyen de la pile notamment, afin de 
les récupérer ensuite en fin de rou- 
tine de gestion des interruptions. Un 
autre signal IRQ éventuel doit rester 
par conséquent ignoré, au moins jus- 
qu'à l'achèvement de cette sauve- 
garde. Si le signal persiste durant que 
l'indicateur Î est à 1, il sera pris en 
compte à son tour dès que le ‘’mas- 
que” sera levé par l'instruction sui- 
vante. 


e CLI (58) : met à O0 l'indicateur | 

Après l'exécution de CLI, tout signal 
IRQ est pris en compte et lance un 
nouveau cycle d'interruption. Rien 
n'interdit de traiter les demandes 
d'interruption d'un périphérique alors 
même que le processeur est déjà uti- 
lisé par un autre périphérique. Lors- 
que le second ‘rend la main”, on re- 
prend le travail du premier à l'endroit 
où il était stoppé et, lorsque celui-ci 
est également terminé, on retrouve le 
programme de départ. Ce méca- 
nisme ne doit pas poser de problè- 
mes si le contexte est correctement 
sauvegardé à chaque interruption. 


e RTI (40) : retour d'interruption 
L'exécution de cette instruction 


consiste pour le processeur à transfé- 
rer dans le registre d'état le sommet 
de la pile, puis à charger le compteur 
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ordinal avec les deux octets qui se 
trouvent à leur tour au sommet de la 
pile. Si l'organisation de cette der- 
nière n'a pas été perturbée durant le 
traitement de l'interruption, on re- 
prend donc à l'endroit (compteur or- 
dinal) où l'on se trouvait lors de la 
prise en compte de l'interruption. 
avec le même registre d'état. 


Nous verrons par la suite comment la 
pile intervient dans la manipulation 
du compteur ordinal. mais, afin d'il- 
lustrer ces mécanismes, voici un 
exemple simplifié de routine de ges- 
tion des interruptions (notez bien que 
lorsqu'on arrive à cette routine. le re- 
gistre d'état et le compteur ordinal 
ont déjà été empilés par le proces- 
seur) : 


SEI 

(on masque les interruptions IRQ qui 
pourraient survenir) 

PHA 

TYA 

PHA 

TXA 

PHA 

(sauvegarde dans la pile des registres 
A, Xet Y) 

CLI 

(les interruptions IRQ sont de nou- 
veau autorisées) 

Détermination du périphérique avant 
provoqué l'interruption. en testant 
par exemple le contenu d'adresses 
affectées à chaque périphérique 
connecté. | 
JSR ADR 

(ADR est l'adresse de début des rou- 
tines de service du périphérique, qui 
lui permettent d'effectuer son travail. 
Ces routines doivent veiller à resti- 
tuer, à l'issue de leur exécution par 
un ultime RTS, un contenu de pile 


identique à celui que l'on avait avant 
JSR ADR) 


SEI 

PLA 

TAX 

PLA 

TAY 

PLA 

(restauration des registres A-X-Y, tels 
qu'ils étaient lors du début de notre 
routine de gestion des interruptions) 
CLI 

RTI 

(reprise du programme interrompu) 


Si une nouvelle interruption se pro- 
duit avant la fin du premier cycle, 
alors que l’on vient de déterminer le 
périphérique par exemple (appelons 
cela le stade S0), le processeur nous 
ramène au début de la routine ci- 
dessus et on empile le contexte de 
S0. On traite ensuite la seconde in- 
terruption, puis on récupère le 


contexte de S0. Le RTI nous renvoie 
à l'instruction qui suit SO et l'on re- 
prend ainsi le traitement de la pre- 
mière interruption, avant de récupé- 


rer le contexte initial et de retrouver 
un RTI qui nous reporte cette fois à 
la suite du programme de départ. 


Lorsqu'une routine de ce type est 
utilisée pour gérer des interruptions 
NMI, son adresse doit être stockée 
en $3FC-$3FD. S'il s'agit de gérer 
des IRQ, l'adresse doit être implantée 
en $3FE-$3FF, comme le montrera 
le paragraphe suivant. 


BREAK et simulation 
d’interruptions 


L'instruction de break BRK (00) pro- 
duit des effets semblables à ceux 
d'une interruption IRQ. ce en quoi 
elle ressemble à une interruption “lo- 
giciel”, mais avec deux différences : 


e Le processeur empile la valeur du 
compteur ordinal augmentée de 2 
(comme si l'instruction BRK occu- 
pait deux octets). 

e Le bit B du registre d'état est mis 
à 1 (alors qu'il est à O0 dans le cas 
d'une interruption) avant sauve- 
garde. 


Ensuite, comme dans le cas d'une 
IRQ. on saute à l'adresse contenue 
en $FFFE-$FFFF, ce qui nous amène 
donc. sur un Apple II+ ou //e, à la 
routine commençant en $FA40, à 
qui il appartiendra de faire le distin- 
guo entre BRK et IRQ. Cette routine 


_ est listée ci-dessous et nous allons en 


faire l'analyse. 


Listing 1 

FA40- 85 45 STA $45 
FA42- 68 PLA 

FA43- 48 PHA 

FAg4- A ASL 

FA45- 0A AsL 

FA4gé- 0A ASL 

FA47- 30 03 BMI $FA4C 
FA49- éC FE 03 JMP ($03FE) 
FA4C- 28 PLP 

FA4D- 20 4C FF JSR  $FF4C 
FAS0- 68 PLA 

FAS1- 85 3A STA $34 
FA53- 68 PLA 

FAS4- 85 3B STA $3B 


FASé- éc F0 03 JMP 


Ligne 1: on stocke l'accumulateur 
en $45. 

Lignes 2 et 3 : on récupère dans l'ac- 
cumulateur le sommet de la pile 
(PLA), c'est-à-dire le registre d'état 
au moment du BRK ou de l'IRQ, 
puisque l'on arrive ici à l'issue du 
cycle d'interruption exécuté par le 
processeur. On ré-empile aussitôt 
cette même valeur (PHA) afin de 
préserver l'organisation de la pile. 
Lignes 4 à 6: les trois ASL amènent 
le bit 4 de l'accumulateur en position 
de bit 7. On a donc pour bit de 
poids fort, ou bit de signe, l'indica- 
teur B du registre d'état au moment 
du BRK ou de l'IRQ. 

Ligne 7 : test du bit de signe de l'ac- 
cumulateur. Si celui-ci est à 1. cela 
signifie que l'indicateur B était à 1 
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(BRK) et BMI branchera en $FA4C. 
Si le bit de signe est à 0, l'indicateur 
B était à O (IRQ) : le test BMI échoue 
et on passe à l'instruction suivante. 
Ligne 8: nous sommes dans le cas 
d'une interruption IRQ et l'on saute 
à l'adresse contenue en $3FE-$3FF, 
adresse devant correspondre au 
début de la routine de gestion des in- 
terruptions IRQ si elle existe. Si l'Ap- 
ple est mis sous tension sans DOS, le 
vecteur $3FE-$3FF ne conduit ‘nulle 
part’: si le DOS est ‘booté”, il 
conduit à $FF65. soit au moniteur. 
Là encore, c'est au programmeur dé- 
sirant exploiter les IRQ qu'il appar- 
tient de mettre en $3FE-$3FF 
l'adresse de sa routine de gestion des 
interruptions (routine du type de 
celle présentée plus haut). 

Lignes 9 à 15 : nous sommes dans le 
cas d'un BRK. On récupère le regis- 
tre d'état (PLP), on sauve les regis- 
tres en $45 à $49 (JSR $FF4C - rou- 
tine de la ROM du moniteur), on 
sauve l'octet bas du compteur ordi- 
nal empilé lors du BRK en $3A (PLA 
- STA $3A) et l'octet haut en $3B 
(PLA - STA $3B), puis on saute à 
l'adresse contenue en $3F0-$3F1. 
En standard, c'est-à-dire lorsque 
vous mettez l'Apple sous tension, 
$3F0-$3F1 contiennent "59 FA”. un 
BRK conduit donc finalement à la 
routine commençant en $FA59, qui 
affiche le contenu des registres à 
l'écran et passe en mode moniteur, 
stoppant ainsi le déroulement du 
programme en cours. 


Lorsque vous utilisez le break sous la 
forme que lui ont donnée les 
concepteurs de l'Apple, il peut sur- 
tout vous servir lors de la mise au 
point de vos propres routines en lan- 
gage-machine. En effet, si tout ne se 
passe pas conformément à vos espé- 
rances, vous insérez un BRK dans le 
programme source en assembleur 
(soit un code 00 dans le programme 
objet) à l'endroit qui vous semble le 
plus significatif et vous en relancez 
l'exécution. En arrivant au BRK, le 
système stoppe le programme et affi- 
che les registres, ce qui vous permet 
d'en examiner le contenu, ainsi que 
celui des adresses que vous utilisez, 
afin de vérifier s'il correspond aux 
valeurs que vous aviez prévues lors 
de l'étude de votre programme. Cela 
facilite bien souvent le diagnostic des 
erreurs. 


Afin d'illustrer le mécanisme des in- 
terruptions, et surtout celui des re- 
tours d’interruptions, dont le break 
peut assurer une certaine simulation, 
nous allons maintenant ‘revectoriser” 
le BRK (c'est-à-dire modifier le 
contenu de $3F0-$3F1). pour qu'il 
ne conduise plus en $FA59 mais à 
une routine que nous implanterons 
nous-mêmes et qui, puisqu'il s'agit 
d'un exercice de style, rendra simple- 
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ment BRK transparent. En d'autres 
termes, nous ferons en sorte que 
BRK au milieu d'un programme 
n'exerce plus aucune action sur son 
déroulement (sinon au niveau des 
temps d'exécution) et permette le 
passage à l'instruction suivante. Cette 
routine, listée ci-dessous, débute à 
l'adresse $300. 


Listing 2 

0300- Aé 3A LDX #34 
0302- A4 38 LDY $38 
0304- CA DEX 

0305- 10 01 BPL  $0308 
0307- 88 DEY 

0308- 98 TYA 

0309- 48 PHA 

030À- 8ÂA TXA 

030B- 48 PHA 

030C- A5 48 LDA +548 
030€- 48 PHA 

030F- 20 3F FF JSR  $FF3F 
0312- 40 RTI 


Lignes 1 et 2: nous arriverons tou- 
jours en $300 après être passé par 
$FA4O, qui stocke le compteur ordi- 
nal en $3A-$3B. On peut donc le ré- 
cupérer ici (octet bas dans le registre 
X et octet haut dans le registre Y). 
Lignes 3 à 5: pour reprendre le pro- 
gramme en cours (celui dans lequel 
on à inséré un break) à l'instruction 
qui suit BRK il faut rectifier la valeur 
de ce compteur ordinal en le dimi- 
nuant de 1 (decrémentation de l'oc- 
tet bas, puis de l’octet haut si néces- 
saire). 

Lignes 6 à 9. on empile le compteur 
ordinal rectifié, dans l'ordre octet 
haut / octet bas. 

Lignes 10 et 11: le passage en 
$FA4O a également provoqué la sau- 
vegarde du registre d'état au mo- 
ment du break à l'adresse $48. On 
va donc le relire et le déposer au 
sommet de la pile. Cette dernière 
présente maintenant la même confi- 
guration qu à l'issue d'une interrup- 
tion. 

Ligne 12: $FF3F est le début d'une 
routine du moniteur qui recharge les 
registres avec les valeurs lues en $45 
à $48 (le passage en $FA40 à permis 
la sauvegarde de ces mêmes registres 
dans ces mêmes adresses). On re- 
trouve ainsi le contenu des registres 
au moment du break dans le pro- 
gramme initial. 

Ligne 13 : avec l'instruction RTI. on 
simule un retour d'interruption et, la 
pile avant été correctement reconfi- 
gurée. on doit retourner au pro- 
gramme principal. juste après l'ins- 
truction BRK. 


Pour mettre cette routine en mé- 
moire, vous pouvez la charger à par- 
tir de la disquette d'accompagnement 
ou la rentrer directement en mode 
moniteur en tapant : 


CALL —-151 
300: A6 3A A4. 40 


Pour en faire la nouvelle routine de 
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break, il faut ensuite en donner 
l'adresse en $3FO0-$3F1. Passez en 
mode moniteur si vous n'y êtes pas 
déjà et tapez : 

3F0: 00 03 


La routine listée ci-dessous nous ser- 
vira de test. En principe, elle doit 
exécuter un HOME et afficher un A 
en haut et à gauche de l'écran. Etant 
donné que nous avons mis des BRK 
entre chaque instruction, cela ne sera 
effectivement possible que si notre 
routine en $300 rend bien le BRK 
transparent. Pour le vérifier, chargez 
cette seconde routine ou rentrez la 
directement en mémoire et lancez-en 
l'exécution par “2000G" à partir du 
moniteur ou “CALL 8192" à partir 
du Basic. Sauf erreur de frappe, vous 
devriez obtenir le résultat escompté. 
Cela vous donnera une petite idée 
de la façon dont les interruptions 
peuvent détourner l'usage du proces- 
seur au profit de périphériques et 
permettre néanmoins une reprise 
correcte du déroulement des pro- 
grammes interrompus. 


Listing 3 

2000- 20 58 FC JSR $FCS8e 
2003- 00 BRK 

2004- A9 C1 LDA  ##Ci 
2006- 00 BRK 

2007- 20 FO FD JSR  #FDFO 
2004- 00 BRK 

2008- 60 RTS 


Une instruction qui ne 
fait rien. 


S'il ne s'agit que de disposer d'une 
instruction transparente dans un pro- 
gramme, il n'est pas vraiment néces- 
saire (ce serait même plutôt inutile) 
de revectoriser le BRK comme ci- 
dessus, car le 6502 vous offre en 
standard une telle instruction : NOP 
(EA). 

NOP ne réalise aucun traitement, ne 
modifie aucun registre, aucune 
adresse et se contente de réclamer 
un peu de temps pour son exécu- 
tion. Elle n'en est pas totalement inu- 
tile pour autant : 


e Lorsque vous testez une routine 
qui vous pose problème, vous êtes 
amené bien souvent, dans un pre- 
mier temps du moins, à travailler 
directement au niveau du code 
objet en mode moniteur. Si vous 
remplacez une instruction par une 
autre plus courte (comportant 
moins d'octets) ou si vous voulez 
effacer une petite séquence d'ins- 
tructions qui vous semble dou- 
teuse, vous aurez besoin d'une 
instruction valide, ne provoquant 
pas la colère du processeur. mais 
transparente pour boucher les 
“trous”. Vous remplirez donc ces 
derniers avec des codes EA (nous 
en verrons un petit exemple plus 
loin). 





e NOP ne fait rien, certes, mais elle 
n'en est pas moins traitée par le 
processeur, ce qui lui prend néces- 
sairement un peu de temps. NOP 
permet donc d'insérer des délais 
dans l'exécution d'un programme, 
aux endroits voulus (pour ralentir 
un affichage à l'écran, par exem- 
ple, ou ne pas ‘affoler”’ la mécani- 
que des lecteurs de disquettes...). 


Le décimal codé binaire 


Autre indicateur du registre d'état 
laissé de côté dans le Pom's 13, le 
bit 3 ou indicateur ‘décimal codé bi- 
naire” (DCB en abrégé), mérite 
maintenant quelques  développe- 
ments. 


Le DCB est une technique de repré- 
sentation des nombres correspondant 
à une version tronquée de l'hexadé- 
cimal, puisque l'on ne représentera 
que les chiffres décimaux 0 à 9, au 
liu de O0 à F en hexadécimal. 
Comme toujours, revenons un peu 
au binaire pour clarifier les choses. 

Sur quatre bits, on peut coder les va- 
leurs comprises entre 0000 et 1111, 
soit 0 à 15 en “décimal” ou encore 0 


à F selon la notation hexadécimale. 


Si l'on se borne à coder les chiffres 
décimaux, on utilise les ’combinai- 
sons’ 0000 (0) à 1001 (9), mais pas 
les suivantes (1010 à 1111) qui ne 
correspondent pas à des chiffres dé- 
cimaux. En hexadécimal, un octet 
permet de représenter des valeurs 
comprises entre O0 et FF (0 à 255), 
mais en DCB, du fait des combinai- 
sons éliminées, on ne peut représen- 
ter que les nombres entre O0 et 99. 
Employer la notation DCB permet 
tout d'abord de retrouver notre sys- 
tème décimal classique, avec lequel 
nous avons normalement plus de 
communauté de langage qu'avec 
l'hexadécimal, ainsi, si l'on ajoute 1 à 
09, on trouvera 10 et non OA. Par 
contre, cela suppose que soient bien 
éliminées dans les calculs les coml 
naisons illicites. sous peine de gra 
incohérences dans les résultats. 


Le processeur 6502 dispose d'un 
mode de calcul en DCB. dans lequel 
il se charge lui-même de limiter les 
combinaisons de bits aux seuls chif- 
fres décimaux. Pour sélectionner ce 
mode, il suffit de mettre l'indicateur 
DCB du registre d'état à 1 au moyen 
de l'instruction SED (F8). On revient 
au système hexadécimal ‘’naturel” en 
mettant cet indicateur à 0 au moyen 
de l'instruction réciproque (CLD 
(D8). 


Vous trouverez ci-dessous un petit 
exemple d'addition en DCB. dont 
nous vous laissons conduire l'analyse 
à l’aide des précisions suivantes : 


— Avant de faire appel à des routi- 
nes du système (moniteur ou Basic), 
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il est toujours prudent de revenir à 
l'hexadécimal, car ces routines sont 
prévues pour fonctionner avec des 
valeurs hexa et l'on obtient souvent 
des résultats bizarres si l'on s'y bran- 
che en mode DCB. Ceci explique la 
présence de CLD avant le premier 
JSR $FDDA. 

— $FDDA est une routine du moni- 
teur qui affiche le contenu de l'accu- 
mulateur sur deux chiffres. $FD8E 
envoie un RETURN et $FD1B attend 
la frappe d'une touche au clavier. 


Si vous lancez cette routine (à partir 
du moniteur par 300G. par exem- 
ple). vous verrez s'afficher O001 puis 
le curseur. Après avoir tapé une tou- 
che. vous verrez 0002 et ainsi de 
suite jusqu'à 9999 si vous en avez la 
patience. Après 9999. on repart à 
0000. Notez bien que le calcul passe 
de 0009 à 0010 puis 0011. de 0019 
à 0020 puis 0021... 


Listing 4 

0300- A9 00 LDA  #$00 
0302- 85 07 STA #07 
0304- 85 06 STA #06 
0306- F8 SEO 

0307- 18 CLC 

0308- AS 06 LDA $06 
030A- 69 01 ADC #0! 
030C- 85 06 STA  $06 
030E- AS 07 LDA  $07 
0310- 69 00 ADC  H#00 
0312- 85 07 STA #07 
0314- D8 CLD 

0315- 20 DA FD JSR  $FDDA 
0318- A5 06 LDA 806 
031A- 20 DA FD JSR  #FDDA 
031D- 20 8E FD JSR  $FDSE 
0320- 20 18 FO JSR  #FD1B 
0323- 4C 06 03 JMP  $0306 


Le mode DCB peut ainsi servir juste- 
ment à faire un affichage simple d'un 
compteur en décimal, en vous évi- 
tant d'avoir à convertir les résultats 
avant de les afficher. En ce qui 
concerne les additions, le processeur 
peut même vous réserver d'agréables 
surprises. Remplacez par exemple le 
00 de l'adresse $301 par OF et relan- 
cez la routine: vous verrez apparai- 
tre : 

1516 

1517 

Le processeur a corrigé tout seul 
votre erreur et converti votre $0F en 
15 DCB ! 


Les soustractions, en revanche, n'of- 
frent pas les mêmes garanties. Trans- 
formons notre programme d'addition 
en programme de soustraction en 
remplaçant CLC (18) par SEC (38) 
et les deux ADC (69) par des SBC 
(E9). Si l'on commence par LDA 
#00, tout se passe bien et le calcul 
donne : 

9999 

9998 

9997 

Si l'on commence par LDA #$0F. 
par contre. on obtient : 

OFOE 


OFOD 

OFOC 

Le processeur va calculer ainsi en 
hexadécimal jusqu'à ce que le 
contenu de l'octet revienne dans les 
chiffres décimaux (on a par exemple 
OF02 - OFO1 - OFO0 - 0E99 - OE98). 
Le résultat d'ensemble n'est donc 
pas particulièrement cohérent. 


Outre les précautions d'emploi qu'il 
réclame. le DCB présente un incon- 
vénient au niveau de la consomma- 
tion en mémoire. Deux octets per- 
mettent de coder les nombres 
jusqu à 65535 ($FFFF) en hexadéci- 
mal. mais jusqu'à 9999 seulement en 
DCB.. Quelle que soit la valeur 
maximale que l'on désire représen- 
ter. il faudra toujours plus d'octets 
pour le faire en DCB qu'en hexadé- 
cimal. 

Citons rapidement d'autres petits 
problèmes relatifs au DCB : l'élimina- 
tion des combinaisons de bits illicites 
après des décalages ou des rotations. 
la disparition de la notion de ‘bit de 
signe … 

Finalement. tout cela ne fait pas de 
la notation DCB un système particu- 
lièrement sympathique. Vous pouvez 
l'utiliser sans grand risque pour l'affi- 
chage direct en décimal des résultats 
de calculs simples. mais au delà. pru- 
dence.. 


La pile : suite et fin 


Depuis le Pom's 12. nous avons sou- 
vent parlé de la pile du microproces- 
seur, sans rentrer dans le détail de 
son organisation car cela n'était pas 
nécessaire pour la manipulation des 
instructions présentées à cette occa- 
sion. Îl nous suffisait de savoir que 
l'on peut déposer quelque chose à 
son sommet, l'y reprendre ensuite et 
que le processeur l'utilisait également 
pour mémoriser l'adresse de retour 
après un JSR. Nous avons vu plus 
haut le rôle qu'elle joue en outre 
dans les mécanismes de break et 
d'interruptions. En fait. elle fournit 
souvent la solution de bien des pro- 
blèmes de programmation dès lors 
que Jon sait plus ‘ précisément 
comment elle fonctionne et nous 
allons donc faire plus ample connais- 
sance avec elle. 


La pile est une zone de ‘stockage ” 
de 256 octets qui se trouve en mé- 
moire aux adresses $100 (256) à 
$1FF (511) - c'est la page 1 de la 
mémoire RAM de l'Apple. Première 
remarque : la pile se situe donc dans 
une zone mémoire qui vous est tout 
aussi accessible que la zone de travail 
de l'Applesoft. ou des adresses 
comme $6 ou $7 que nous avons 
souvent utilisées pour nos routines. 
Conséquence, ne POKEZz jamais 
quelque chose entre 256 et 511 sans 
mesurer précisément à l'avance les 
risques de cette entreprise. 


AO DORMI 
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Pour gérer sa zone de stockage, le 
6502 dispose d'un pointeur (baptisé 
S). qui. au contraire de la pile elle- 
même, est un registre interne au 
même titre que l'accumulateur ou le 
compteur ordinal. par exemple. Ce 
pointeur correspond à un octet, peut 
donc varier de 0 à 255 ($0 à $FF) et 
indique toujours la première position 
libre dans la pile. c'est-à-dire son 
sommet. Particularité du sommet: il 
s'élève vers le bas car la pile se rem- 
plit de l'adresse $1FF vers l'adresse 
$100 et non l'inverse. Lorsque la pile 
est totalement vide. le pointeur de 
pile S contient $FF et le premier 
octet empilé le sera à l'adresse 
"$100 + valeur de S”. soit $1FF. 
Après cet ‘empilage ”. S contient $FE 
et la prochaine valeur à empiler le 
sera à l'adresse $IFE. Chaque fois 
que l'on empile un octet. S diminue 
de 1 et chaque fois que l'on dépile 
un octet, S augmente de 1. 

Il n'existe pas d'instructions pour ma- 
nipuler directement ce pointeur de 
pile (du type LDS ou STS), mais on 
peut néanmoins le faire par l'inter- 
médiaire du registre X grâce aux ins- 
tructions : 


e TSX (BA): copie le contenu du 
pointeur de pile dans X sans chan- 
ger la valeur de S 

e TXS (9A): copie le contenu de X 
dans le pointeur de pile 


JSR, RTS et pile 


Une instruction JSR suivie de 
l'adresse de la sous-routine concer- 
née occupe toujours 3 octets (par 
exemple, JSR $B1 = 20 00 B1 et 
JSR $FDED = 20 ED FD). Avant 
d'exécuter une instruction, le proces- 
seur calcule l'adresse de l'instruction 
suivante et la range dans le compteur 
ordinal. L'adresse de l'instruction qui 
suit un JSR est donc ‘adresse du 
JSR + 3°” et elle correspond à l'en- 
droit où l'on doit revenir après le dé- 
roulement d'une sous-routine se ter- 
minant par RTS. 

Cette adresse de retour est déposée 
au sommet de la pile. mais elle cor- 
respond en fait à l'adresse réelle di- 
minuée de 1 (soit adresse du JSR + 
2). car l'exécution de RTS augmente 
de 1 le compteur ordinal (le proces- 
seur prend les deux octets du som- 
met de la pile pour les mettre dans le 
compteur ordinal, augmente ce der- 
nier de 1 et passe ensuite à l'instruc- 
tion dont l'adresse lui est donnée par 
la nouvelle valeur du compteur). 


Nous allons voir comment cette inte- 
raction entre JSR et la pile est utilisée 
par les cartes d'interface pour déter- 
miner le slot dans lequel elles se 
trouvent et savoir ainsi quelles adres- 
ses de travail leur sont réservées par 
l'Apple. 

Prenons l'exemple d'un contrôleur 
de disquette DOS 3.3. dont le listing 


Pom's n° 15 


ci-dessous reproduit un court extrait 
de la ROM. Notez bien que l'adresse 
de départ $C621 provient du fait 
que le contrôleur se trouve dans le 
slot 6 au moment de cette liste. Les 
ROMSs de l'interface sont conçues de 
telle façon qu'elles puissent fonction- 
ner quel que soit le slot dans lequel 
on les installe et. si le contrôleur était 
dans le slot 5. par exemple. on trou- 
verait exactement la même chose à 
partir de l'adresse $C521. 


Listing 5 

Cé21- 20 58 FF JSR  +$FF58 
Cé24- BA TSX 

Cé25- BD 00 01 LDA  #$0100,X 
Cé28- 04 ASL 

Cé29- 0A ASL 

Cé2A- 04 ASL 

Cé2B-  0A ASL 

Cé2C- 85 2B STA $2B 
Cé2E- AA TAX 

Cé2F- BD 8E CO LD $COSE ,X 
Cé32- BD 8C Co LDA $Cco8c,x 
Cé35- BD 8A CO LDA  $C08A,X 
Cé38- BD 89 CO LDA  $c089,x 
Cé3B- A0 50 LDY  #550 
Cé30- BD 80 Co LDA $C080,Xx 


— $C621: l'adresse $FF58. située 
dans la ROM du moniteur, contient 
la valeur #$60. c'est-à-dire le code 
de l'instruction RTS. Un JSR $FF58 
nous ramène donc immédiatement à 
la suite du JSR mais, entre-temps, 
l'adresse de retour diminuée de 1 a 
été déposée au sommet de la pile, 
dans l'ordre octet haut / octet bas. 
En l'occurence, on avait donc 23” 
au sommet de la pile et “C6” en 
dessous (adresse de retour = $C624. 
soit $C623 après déduction de 1), 
avant le RTS de l'adresse $FF58. Le 
RTS dépile cette adresse dans le 
compteur ordinal et augmente le 
pointeur de pile de 2 mais, aussi 
longtemps que l'on n'empile rien 
d'autre, les deux octets du sommet 
de la pile sont toujours les mêmes. 
Le registre S pointe sur la position 
où se trouve “C6” pour indiquer que 
c'est la première position libre, mais 
il V a encore pour l'instant à cette 
position "C6" et 23" à la position 
supérieure. 

— $C624 : on transfère la valeur du 
pointeur de pile dans le registre X 
par TSX. 

—  $C625: l'instruction  ‘’LDA 
$100,X" permet de charger l'accu- 
mulateur avec le contenu de la pre- 
mière position libre de la pile (sans 
modifier le pointeur de pile, bien sûr) 
et l'on récupère ainsi C6” dans l'ac- 
cumulateur. 

— $C628 à $C62B: après quatre 
décalages à gauche (ASL) le contenu 
de laccumuülateur devient 60”. 
Cette valeur sera ensuite transférée 
dans le registre X et elle permettra 
d'accéder aux adresses réservées à 
une carte d'interface placée dans le 
slot 6. 


Le travail effectué par cette routine 


Pom's n° 15 


peut vous paraître inutile puisque 
nous savons depuis le départ que la 
carte se trouve dans le slot 6 et qu'il 
suffisait donc de charger X avec 
#$60 pour obtenir le même résultat. 
Mais le programmeur qui a déve- 
loppé les routines de la ROM du 
contrôleur ne pouvait savoir dans 
quel slot vous alliez le mettre et vou- 
lait en outre que ces routines fonc- 
tionnent indépendamment de ce slot 
(si vous utilisez le slot 5. le registre X 
devra contenir #$50 au lieu de 
#$60). Etant donné que la ROM est 
écrite ‘une fois pour toutes” et que 
l'on ne peut remplacer "LDX #$60" 
par ‘LDX #$50° lorsqu'on l'utilise. 
la solution consiste donc à employer 
un mécanisme ‘JSR - RTS” pour 
aller lire ensuite la pile et savoir si 
l'on à envoyé le JSR à partir d'une 
adresse Cénn. C5nn, C4nn ou autre. 


Pour détailler un peu plus ce sys- 
tème, vous trouverez ci-après la liste 
et le compte-rendu d'exécution 
d'une petite routine utilisant le même 
principe et permettant de vérifier 
concrètement le contenu de la pile. 


Listing 6 

0300- A2 E0 LDX H#$EO 
0302- FA TXS 

0303- 20 58 FF JSR $FFS58 
0304- BA TSX 

0307- 86 06 STX $0é6 
0309- BD 00 01 LDA #0100,X 
030C- 85 07 STA 507 
030E- CA DEX 

’C30F- BD 00 01 LDA $0100,X 
0312- 85 08 STA $08 
0314- A2 40 LDX  H#$40 
0316- 9A TXS 

0317- 00 BRK 

03183- 00 BRK 

0319- 00 BRK 

031A- 00 BRK 

0318- 00 BRK 

031C- 00 BRK 

031D- 00 BRK 

031E- 00 BRK 

*300G 

0319- A=0S5 X=40 Y=D08 P=30 S=3C 
*6.8 

0006- E0 03 

0008- 05 

*1D08.1E7 


01D8- 6F BE 00 00 30 30 31 05 
01E0- 03 30 00 0Q 00 00 00 04 


On initialise le pointeur de pile à 
#$E0, on exécute le JSR $FF58 puis 
on récupère la valeur de $S et on la 
stocke en $6. On lit ensuite la pre- 
mière position libre et on la stocke 
en $7. En décrémentant X (la pile se 
remplit vers le bas), on lit ensuite 
l'octet qui se trouve ‘au dessus” de 
la première position libre et on le 
range en $8. Puis on initialise S à 
#$40, afin de préserver les valeurs 
que nous avons nous-mêmes empi- 
lées (en d’autres termes, on remonte 
le sommet de la pile loin de l'endroit 
que nous avons manipulé), et on 
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stoppe le programme par un BRK 
standard de l'Apple. 

On trouve ainsi aux adresses $6 à 
$8 : 

— E0: le pointeur de pile est bien 
revenu à sa valeur intiale $EO après 
le RTS de l'adresse $FF58. 

— 03 : octet haut de l'adresse de re- 
tour du JSR 

— 05: octet bas de l'adresse de re- 
tour du JSR. diminué de 1 

En lisant le contenu de la pile entre 
les adresses $1D8-$1E7. on peut vé- 
rifier la présence de “03” à l'adresse 
$IEO (S = $E0) et de ‘05 à 
l'adresse $1DF (S = $DF. ce qui 
constituait bien le sommet de la pile 
avant RTS). 


Manipulation du pointeur de pile 


Nous en avons vu un exemple ci- 
dessus (initialisation à #$E0 ou à 
#$40). 

En changeant la valeur du pointeur 
de pile, on modifie l'endroit où sont 
empilés les octets par la suite, et l'on 
modifie également les valeurs lues 
lorsque le processeur dépile quelque 
chose. Cela est vrai qu'il s'agisse de 
dépiler dans l'accumulateur par PLA, 
par exemple, ou qu'il s'agisse de 
l'adresse de retour d'un JSR. 


La routine suivante utilise la manipu- 
lation du pointeur de pile pour réali- 
ser l'équivalent d'un POP en langage 
machine. L'exemple choisi n'a 
qu'une valeur démonstrative car le 
traitement effectué ne nécessite nulle- 
ment pareille complication. 


Listing 7 

0300- 20 58 FC JSR $FCS8e 
0303- A9 Ci LDA  #H$CI 
0305- 20 0C 03 JSR  $030C 
0308- 20 FO FD JSR  $FDFO 
0308- 60 RTS 

030C- 29 7F AND H#$7F 
030E- BA TSX 

030F- ES INX 

0310- E8 INX 

0311- 9A TXS 

0312- 4C 08 03 JMP  #0308 


La routine effectue un HOME puis 
affiche un À en mode FLASH. La 
partie qui nous concerne se situe 
dans la sous-routine débutant en 
$30C. 

On met le bit 7 de l'accumulateur à 
0 pour modifier le code-écran auquel 
il correspond et on augmente ensuite 
le pointeur de pile de 2 (TSX - INX - 
INX - TXS). Par cette opération, on 
déplace le sommet de la pile ‘en- 
dessous” de l'adresse de retour du 
JSR $030C. Le fait de revenir alors 
de la routine par un JMP $0308 ne 
perturbe pas le déroulement du pro- 
gramme car, ayant fait sauter” une 
adresse de retour, il n’y a pas réelle- 
ment plus de JSR que de RTS. 


Annulez maintenant la manipulation 
du pointeur de pile en tapant, en 
mode moniteur : 





à 
we 
L 
# 


30E: EA EA EA EA 


ce qui remplace les instructions pré- 
cédentes par des NOP. Relancez la 
routine et vous verrez cette fois s'affi- 
cher deux À en FLASH au lieu d'un. 
En voici l'explication : 

— Au JSR $030C, l'adresse $307 est 
empilée. 

— Comme il n'y pas de RTS dans la 
routine $30C et que l'on revient par 
JMP $308, l'adresse $307 constitue 
toujours le sommet de la pile. 

— La routine débutant en $FDFO se 
termine par un RTS. Le processeur 
récupère le sommet de la pile, soit 
$30A après le JSR $FDFO, et l'utilise 
comme base de l'adresse de retour: 
on revient en $30B. 

— En $30B, on trouve un RTS. Le 
processeur reprend encore le som- 
met de la pile et “tombe” cette fois 
sur $307 qui y est remonté lorsque 
$30A a été dépilé. On revient de ce 
fait en $308. ce qui provoque l'affi- 
chage d'un deuxième caractère à 
côté du premier. Le mécanisme des 
RTS se fait ensuite normalement 
puisqu'il n'y a plus d'adresse excé- 
dentaire dans la pile. 


Gestion de tables 


Supposons que vous avez plusieurs 
tables d'octets à gérer à l'intérieur 
d'un programme, telles par exemple 
des tables contenant les codes des 
caractères de messages à afficher à 
l'écran. Malheureusement, vous ne 


ces tables vous seront nécessaires, ni 
à quels endroits elles se trouveront 
dans le programme. Comme tou- 
jours, plusieurs solutions sont envisa- 
geables pour résoudre les problèmes 
de programmation que pose cette si- 
tuation. L'une d'elle consiste là en- 
core à utiliser la pile, comme le mon- 
tre le programme suivant, que nous 
allons analyser. 


Ligne 4: elle correspond aux codes 
écran du message MESSAGE 1, 
rot d'un 00 pour en marquer la 
in. 

Ligne 5: codes écran de MESS 2, 
suivis de O0. 

L'affichage se fera à chaque fois par 
un JSR SO placé avant les codes 
composant le message. 

Lignes 8 à 12: on transfère le poin- 
teur de pile dans X pour lire les deux 
octets du sommet de la pile, c'est-à- 
dire l'adresse de retour du JSR S0 
diminuée de 1. On prend pour 
adresses de base $101 et $102 au 
lieu de $100 et $101, puisque S 
pointe vers la première position libre, 
et donc vers l’octet qui se trouve au 
dessus de l'adresse qui nous inté- 
resse. On stocke cette adresse en $6- 
$7 pour qu'elle puisse nous servir 
ensuite d'adresse de base dans un 
indexage indirect par Y. 

— Ligne 13 : oninitialise Y à 1, pour 
tenir compte du fait que l'adresse 
placée en $6-$7 ne correspond pas 
exactement à l'adresse du début de 


à cette adresse diminuée de 1. 

— Lignes 14 à 16: incrémentation 
de l'adresse de retour située au som- 
met de la pile. Il s’agit en effet de ne 
pas revenir de notre routine S0 à 
l'adresse qui suit JSR SO (début de 
la table), mais à l'adresse qui suit le 
00 marquant la fin des codes. 

— Lignes 17 et 18: lecture d'un 
code dans la table. Si c'est O0, on 
passe en S1 qui fait afficher un RE- 
TURN (JSR $FC62) et nous amène 
en fin de routine (RTS). Si l'adresse 
de retour a bien été augmentée à 
l'intérieur même de la pile, on doit 
alors reprendre le programme princi- 
pal à l'instruction qui suit la table des 
codes. 

— Lignes 19 à 21: affichage du ca- 
ractère (JSR $FDFO) et passage au 
suivant (INY - BNE S3). 


Avec un tel système, l'ajout de nou- 
veaux messages en cours de déve- 
loppement du programme ne pose 
guère de problèmes. Il suffit d'insérer 
à l'endroit voulu dans le programme- 
source un ‘JSR S0” suivi du mes- 
sage à afficher, sans se préoccuper 
de l'adresse à laquelle commencera 
la table des codes des caractères à 
l'issue de l'assemblage final. 


Remercions donc tous ensemble 
Thierry Le Tallec qui, par le biais de 
lune de ses contributions, nous a 
donné l'idée de cette méthode pour 
illustrer les bienfaits de la gestion de 
pile. 





savez pas exactement combien de notre table de codes à afficher, mais = 
0300 Î ORG +200 
0300 2058FC 2 JSR $FC58 SOURCE LISA 1,5 
0303 201B03 3 JSR SO 
0304 CDCSD3 4 HEX CDCS5D3D3C1C7CSA0B100 
0309 D3C1C7 
030C CSAOBI 
030F O0 
0310 201B03 =] JSR S0 
0313 CDCSD3 6 HEX CDCS5D3D3A0B200 
0316 D3A0B2 
0319 00 
031A 60 7 RTS 
031B BA 8 So TSX 
031C BDO1i01 4 LDA $101,X 
031F 8506 10 STA $6 
0321 BDO201 11 LDA $102,X 
0324 8507 12 STA $7 
0326 AO01 13 LDY #1 2 ; : 
0328 FEO101 14 S3 INC $101,X Récapitulation 
7 
ee a je . 2 0300- 20 58 FC 20 1B 03 CD CS 
0330 B106 17 S2 LDA ($6),Y 0308- D3 D3 Ci C7 CS A0 B1 00 
: 0310- 20 1B 03 CD CS.D3 D3 A0 
0332 FO0é 18 BEQ Si 
0224 20F0FD 19 JSR $FDFO 0313- B2 00 60 BA BD 01 01 85 
0337 C8 20 INY 0320- 04 BD 02 01 85 07 AO O1 
0328- FE 01 01 DO 03 FE 02 O1 
Dec DRE _ ete 0330- B1 06 FO 06 20 FO FD C8 
0334 2042FC 22 Si JSR $FCé2 0338- DO EE 20 62 FC 60 
033D 40 23 RTS 
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HPGRAPH est un ensemble de pro- 
cédures et de fonctions Pascal per- 
mettant de simuler une partie des 
puissantes instructions graphiques du 
Hewlett-Packard HP 9845. Ces in- 
tructions se retrouvent également sur 
les micros HP, HP 85 et 87. Elles 
ont été définies sous la forme d'une 
INTRINSIC UNIT Pascal. Il faut donc 
la placer dans la SYSTEM.LIBRARY 
pour pouvoir l'utiliser. 


Tout programme utilisant les procé- 
dures HPGRAPH doit commencer 
comme suit : 


PROGRAM xxxx: 

(*$S+x) (xoption Swappingx) 
USES TURTLEGRAPHICS, 
TRANSCEND, HPGRAPH: 


Voyons maintenant les instructions 
possibles. 


Définition du format de 
l'écran 

SCALE (XMIN,XMAX,YMIN, 
YMAX :REAL). 


Cette procédure définit les bornes de 
l'écran : le point placé en bas à gau- 
che a pour coordonnées (XMIN, 
YMIN) et le point situé en haut à 
droite (XMAX, YMAX). Tout l'écran 
est utilisé; il y a donc un certain apla- 
tissement des figures. SCALE est fixé 
par défaut à l'echelle réelle de 
l'écran, soit SCALE (0, 279, 0, 191). 


SHOW (XMIN,XMAX,YMIN, 
YMAX :REAL). 


Cette procédure définit un carré dans 
lequel seront tracés les dessins. Par 
exemple, si l'on fait un SHOW 
(—3.14 ,3.14, —1, 1), la zone dans 
laquelle les dessins seront tracés sera 
(—3.14, 3.14, —-3.14, 3.14). Cette 
instruction est utile pour obtenir, par 
exemple, des tracés de cercles qui ne 
soient pas ovales, c'est-à-dire 
compressés. L'écran utilisable, en 
coordonnées réelles, est donc (0, 
191, 0, 191). 

LIMIT (XMIN,XMAX,YMIN, 
YMAX :REAL). 


Cette procédure est l'équivalent HP 
de l'instruction VIEWPORT du TUR- 
TLEGRAPHICS, mais ici les coor- 
données sont dans le format spécifié 
par SCALE. Par défaut, LIMIT est 
fixé aux mêmes valeurs que SCALE. 


Instructions AXES et 
FRAMES 


FRAME est une instruction sans pa- 
ramètres qui permet de mettre un 
cadre autour de l'écran. 
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AXES (XTIC,YTIC,XINTER, 
YINTER :REAL). 


Comme son nom l'indique, cette ins- 
truction permet de tracer des axes 
sur l'écran. Les axes se croisent au 
point (XINTER, YINTER) et sont gra- 
dués avec une graduation tous les 
XTIC sur l'axe (X'x) et une tous les 
YTIC sur l'axe (V'y). Cette procédure 
sert notamment lors du tracé de 
courbes. 


Instructions de tracé 


PEN (COLOR :SCREENCOLOR). 


Cette instruction permet de choisir 
une couleur parmi les couleurs du 
Pascal. Exemple : PEN (GREEN). 
Par défaut, la couleur choisie est le 
WHITE. 


PENUP. 


Cette procédure, comme son nom 
l'indique, lève la plume, c'est-à-dire 
que les prochaines  intructions 
CMOVE, CDRAW, PLOT, RPLOT et 
IPLOT seront juste un déplacement, 
sans tracé. 


PDIR (ALPHA :REAL). 


Cette procédure est l'une des plus 
puissantes du Basic graphique HP. 
Elle réalise une rotation des axes de 
l'angle ALPHA, suivant le sens trigo- 
nométrique. ALPHA est exprimé en 
radians, et peut être négatif. Toutes 
les instructions de tracé sont réalisées 
dans le repère spécifié par SCALE et 
PDIR. PDIR(O), la valeur par défaut, 
correspond à un repère orthogonal 
classique. On trouvera un exemple 
d'utilisation de cette instruction dans 
le programme ROSE disponible sur 
la disquette d'accompagnement. 


PLOT (X,Y :REAL; 
MODE:INTEGER); 


Cette instruction réalise un déplace- 
ment ou un tracé jusqu'au point de 
coordonnées (X, Y}). Le MODE est 
un paramètre obéissant aux règles 
suivantes: s'il est pair, la plume 
descend” (PENDOWN) et une ligne 
sera engendrée. S'il est impair, la 
plume “monte” (PENUP) et un dé- 
placement sera effectué. Si MODE 
est positif, la plume changera d'état 
après l'exécution du PLOT, sinon 
avant son exécution . Par exemple, 
MODE = 1 réalise soit un tracé soit 
un déplacement selon l'état antérieur 
de la plume, puis baisse la plume (le 
prochain PLOT sera donc un tracé). 
MODE = 2 ou MODE = 0 effectue 
un tracé où un déplacement, puis 
lève la plume (le prochain PLOT 
sera un déplacement). MODE = —-2 
lève la plume puis effectue le dépla- 
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cement, MODE = -—1 baisse la 
plume et effectue le tracé. 


CMOVE (X,Y :REAL) 


Correspond à l'instruction MOVE 
HP, qui n'a pas pu être transcrite 
sous le même nom puisqu'une pro- 
cédure MOVE existe déjà dans le 
TURTLEGRAPHICS. Elle réalise 
l'équivalent d'un PLOT(X, Y, —2). 


CDRAVW (X,Y :REAL) 


Correspond à l'instruction DRAW 
P. Elle réalise l'équivalent d'un 
PLOT(X, Y, —-1). 


IPLOT (X, Y :REAL; 
MODE:INTEGER). 


Cette procédure effectue un déplace- 
ment ou un tracé, suivant le MODE, 
en coordonnées relatives : les coor- 
données d'origine sont les coordon- 
nées du dernier PLOT, CDRAW, 
CMOVE ou RPLOT. Exemple : tracé 
d'un carré de centre (0,0) et de côté 
de longueur 60 : 

SCALE (—60, 60, —60, 60); 
CMOVE ( —30, -30). 

IPLOT(60, 0, —1); IPLOT(0O, 60, 
— 1); IPLOT(-60, 0, —1): IPLOT(0O, 
—60, -1): 

RPLOT {X,Y :REAL; 
MODE:INTEGER;). 


Cette instruction est également une 
des instructions clefs du Basic graphi- 
que HP. Elle réalise un tracé ou un 
déplacement relatif mais, contraire- 
ment à IPLOT, le point origine ne 
varie pas après le RPLOT. Ce point 
origine est la dernière position de la 
plume après une instruction PLOT, 
CDRAW, CMOVE, FRAME, AXES 
ou IPLOT. Le MODE obéit aux 
règles habituelles. Un exemple : tracé 
d'un carré de centre (0.0) et de côté 
de longueur 60 (dans le repère défini 


par SCALE) : 

SCALE (—50, 50, —50, 50): 
CMOVE (0, O0): 

RPLOT (—30, —30, —2): 


RPLOT(30, —30, —1); RPLOT(30, 
30, —1); RPLOT(-30, 30, —-1): 
RPLOT (—30, —-30, -1): 


Conclusion 
L'unité graphique HPGRAPH est for- 
mée de procédures aisément 


compréhensibles, permettant de tra- 
duire facilement en Pascal des pro- 
grammes graphiques d'origine HP. Ils 
permettent également d'écrire soi- 
même facilement tous les program- 
mes nécessitant des  formatages 
d'écran et des rotations d'axes. Il est 
malheureusement assez lent, par rap- 
port aux intructions Basic d'HP (en- 
viron une fois et demi plus lent que 
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sur le HP 85 pour le tracé de la manquent, comme GRID (quadril- que (DIGITIZE), de sauvegarde sur 
ROSE). Il serait très facile d'ajouter lage de l'écran), les instructions de disque d'écrans graphiques (GLOAD 





quelques instructions HP qui lui saisie automatique sur l'écran graphi- et GSTORE)... g 
IF PENDOUNMFALSE THEN CMOVE(X,Y) ; 
Programme HPGRAPH CDRAUCX ,Y) ;PENDOUN := FALSE 
END; 
-2 :BEGIN 
PENOOUN := FALSE ; CMOUE(X ,Y) 
END ; 
-1 :8EGIN 
Der DORE PENDOUN := TRUE ;CORAWX,Y) 
INTRINSIC CODE 16 DATA 17} ENo 
END 
INTERFACE envi 
(SC N.Monsarrat septembre 1984) PROCEDURE RPLOT; 
USES TURTLEGRAPHICS , TRANSCEND ; pra OCURX ,OCURY ,XCART ,YCART 3 REAL ; 
, IN 
pa ap ae OCURX := CURX;OCURY :=CURY ; 
PROCEDURE PEN (COLOR : SCREENCOLOR) ; XCART im CURX + X#COSAL - Y#SINAL; 
PROCEDURE PDIR (ALPHA :REAL) ; YCART 1æ CURY + X#SINAL + Y#COSAL ; 
PROCEDURE CMOVE (X,Y:REAL) } PLOT CXCART , YCART ; MODE) 3 
PROCEDURE CDRAW CX,Y:REAL) ; RE = OCURX3CURY := OCURY 
PROCEDURE PLOT CX,YIREAL ;MODE : INTEGER) } ; 
PROCEDURE RPLOT CX,Y:REAL ;MODE : INTEGER) ; 
PROCEDURE IPLOT  (X,Y:REAL;MODE 1 INTEGER) ; eh rit ae RER 
PROCEDURE LIMIT CIN, XMAX , YMIN,YMAX 3 REAL) rt YCART 3REAL ; 
PROCEDURE SCALE CXMIN,XMAX ,YMIN,YMAX :REAL) ; ; 
PROCEDURE SHOW COMIN MAX | YMIN LYMAX 2 REAL ) ; A tra 
PROCEDURE AXES CXTIC,YTIC,XINTER,YINTER :REAL) ; LOT ER CART-SOART MODE 
IMPLEMENTAT I ON END; 


VAR COSAL,SINAL,CURX,CURY, 
PX,PY,0X,DY :REAL ; 

1 HCOLOR :SCREENCOLOR; 
PENDOUN :BOOLEAN ; 
LXMIN, LXMAX , 

LYMIN,LYMAX : INTEGER:; 


PROCEDURE LIMIT; 

BEGIN 
LXMIN :æ FXCXMIND ;LYMIN := FYCYMIN) ; 
LXMAX := FXCXMAX) ;LYMAX :=æ FYCYMAX) ; 
UIEWPORT(LXMIN, LXMAX , LYMIN, L'YMAX ) 

END ; 


F € $ T 3 
UNCTION FX(X :REAL) :INTEGER PROCEDURE SCALE ; 





PEN BEGIN 
FX -PX) #0X) 
END; FR ROINDERX Po PX := XMIN;PY := YMIN: 
OX : 279/CXMAX-XMIN) ; 






DY := 191/CYMAX-YMIND : 


F FYCY :R ) :INT R; 
rh Sie AATERERT LIMITCXMIN,XMAX , YMIN , YMAX) 


BEGIN 
FY = ROUND( CY-PY) #DY) END ; 
SEA END; 
PROCEDURE SHOW ; 
PROCEDURE FRAME ; BEGIN 
UAR OX,OY :INTEGER; 1F YMINÇXMIN THEN XMIN 1= YMIN 
BEGIN ELSE YMIN := XMIN; 
OX i= TURTLEX;0Y = TURTLEY; IF YMAXDXMAX THEN XMAX 1m YMAX 
PENCOLOR(NONE > ;MQUET OC LXMIN , LYMIND ; ELSE YMAX = XMAX ; 
PENCOLOR(HCOLOR) ;MOVETO(LXMAX , LYMIND ; PX = XMINjPY :æ= YMIN: 
MOVETO(CLXMAX , LYMAX) ; MOVETO(CLXMIN , LYMAX) ; DX := 191/CXMAX-XMIND ;DY := OX; 
MOVETO(LXMIN ; LYMIN) ; PENCOLORCNONE ) ; LIMIT OGMIN , XMAX , YMIN , MAX) 
MOVETO( OX , Ov) EN; 
END; 
PROCEDURE AXES; 
PROCEDURE PENUP; VAR I,X,Y,PAS :INTEGER; 
BEGIN BEGIN 
PENOOUN := FALSE PENCOLOR(NONE) ;MOVETO( 0 , ROUND(FYCYINTER) )) ; 
END: PENCOLORCHCOLOR) ;MOVETO( 279, TURTLEY) ; 


PROCEDURE POIR; 
BEGIN 
COSAL := COSCALPHA) ; 
SINAL := SINCALPHA) 
END; 


PROCEDURE PEN; 
BEGIN 


HCOLOR :=#COLOR: 
PENDOUN := TRUE 
END; 


PROCEDURE CMOVE ; 
BEGIN 
CURX := X; CURY := Y; 
PENCOLOR(NONE ) ;MOUETO(FX(CX) ,FYCY2) ; 
END ; 


PROCEDURE CDRAU ; 


BEGIN 
CURX := X3 CURY := Y; 


PENCOLOR(NONE ) ;MOUETO( ROUNDCFX(XINTER)) ,0) ; 
PENCOLOR(HCOLOR) ;MOVETO(TURTLEX, 191); 
FOR I := 1 TO 2 DO BEGIN 
PAS := ROUND(XTIC#DX) ; 
IF I=2 THEN PAS := - PAS; 
X := ROUND(FX(XINTER)) ; 
Y := ROUNDCFY(CYINTER)D) ; 
REPEAT 
PENCOLOR(NONE ) ;MOVETO(X,Y-2) ; 
PENCOLOR(HCOLOR) ;MOVETO(X,Y+2) 3 
X := X + PAS 
UNTIL NOTEX IN (0..2791) 
END ; 
FOR I := 1 TO 2 DO BEGIN 
PAS := ROUNDOYTICæDY) ; 
IF I=2 THEN PAS := - PAS; 
Y := ROUNDCFYCYINTER) ) ; 
X := ROUNDCFXCXINTER)) ; 
REPEAT 
PENCOLOR(NONE ) ;MQUETO(X-2,Y) ; 
PENCOLOR(HCOLOR) ;MOVETO(X+2,Y); 
Y := Y + PAS 
UNTIL NOTCY IN (0..1911) 


PENCOLORCHCOLOR) ;MOVETOCFXCX) ,FYCY)) ss 
END; END; 
PROCEDURE PLOT; US 
BEGIN C# INITIALISATIONS#) 
CASE MODE OF SCALE (0,279,0,191); 
1 3BEGIN POIR (0); 
IF PENDOUNSFALSE THEN CMOUEX,Y) ; NO TES 
CORAUCX , Y) ÿPENDOUN 1= TRUE 
END; CHOVE( 140,95) 
2,0:BEGIN SE 


ASIE 
60 


Pom's n° 15 


Ecriture en page haute résolution 


Introduction 


La possibilité qu'offre l'Apple II d'uti- 
liser des pages graphiques sur 280 x 
192 points est très souvent mise à 
contribution pour visualiser, de façon 
synthétique, des résultats numériques 
ou autres sous forme de graphes, ré- 
seaux, diagrammes, etc... 


Malheureusement, il n'existe pas 
d'instruction  Applesoft permettant 
d'écrire dans les pages graphiques, et 
d'apporter simplement des commen- 
taires, titres, valeurs, sur nos travaux. 
HAIFA (Pom's 5) et DOS TOOL KIT 
(Apple) sont des utilitaires permettant 
d'écrire en page graphique, grâce à 
des POKESs, mais au prix d’une tabu- 
lation de type TEXT. 

Le but de cet article est de montrer 
comment écrire des mots à l'écran, 
tout en profitant de la haute résolu- 
tion. 


Principe 


L'instruction DRAW de l’Applesoft 
permet de dessiner des formes conte- 
nues dans une table. Les formes sont 
définies par l'utilisateur et peuvent 
parfaitement représenter l'alphabet, 
les chiffres et caractères spéciaux. 
Ecrire un mot revient donc à dessi- 
ner, l’une derrière l'autre, de telles 
formes. 


Une table ASCIIL.SET (de 755 octets) 
est proposée ici. Elle contient 63 
formes représentant les 62 caractères 
de codes ASCII 32 à 94, définis dans 
une matrice classique de 5 x 7, plus 
un carré plein dont nous verrons 
l'utilité ultérieurement. 


La solution en Basic 
Méthode 


Soit à écrire en page haute résolution 
une chaîne de caractères, contenue 
dans la variable CH$, à la ligne YS, 
à partir de la colonne XS. La métho- 
dologie est la suivante : 


. NS = longueur de CH$ 

. Pour IS allant de 1 à NS 

A$ = caractère No IS 

CS = code ASCII de A$ 

SS = CS — 31 

. Effacer un carré en XS - YS 

, Er la forme No SS en XS 
— Ÿ 

. Incrémenter XS et IS 

. SiIS <= NS, retourner en 3 


W D IQ UTP W N ri 


Sous-programme Applesoft 


Les paramètres d'appel sont : 
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e CH : chaîne à écrire 
e YS: ligne d'écriture 

e XS: lère colonne 

Les variables locales sont : 


e IS: indice du caractère 
e A$: caractère courant 
e CS: code ASCII 

e SS : forme courante 


En sortie, XS est modifié. 


Dans le paragraphe suivant, nous 
condenserons cette routine. 


Utilisation du sous-programme 


Elle impose quelques servitudes : 

® chargement de la table de formes 
ASCILSET à une adresse choisie; 

e préciser cette adresse au système: 

e préciser : ECHELLE = 1, ROTA:- 
TION = 0; 

e protection de la table et de la 
page graphique utilisée. 


Plusieurs ‘cartes d'occupation” de la 
RAM sont possibles, selon la taille du 
programme Basic et la page graphi- 
que utilisée. 

Si AD est l'adresse de chargement de 
la table, alors AH% = (AD / 256) et 
AL% = (AD — 256 x AH%) dési- 
gnent respectivement les adresses 
haute et basse, et il faut préciser : 
POKE 232,AL% : POKE 233,AH%. 


Si l'on utilise une autre table de 
formes, ces deux instructions doivent 
être réexécutées à chaque écriture en 
page HGR. 

Il faut donc compléter notre routine, 
et nous en profitons pour en donner 
une version compacte : 


1 AD= PEEK (115) + PEEK (116) # 
256: IF PEEK (AD) = 63 THEN ! 
000 

2 AD = AD - 755 

3 PRINT CHR$ (4)'BLOAD ASCII .SET 
A'AD: HIMEN: AD: GOTO 1000 

99 REM --ROUTINE EN BASIC-- 

100 NS = LEN (CH$): REM LONGUEUR 

110 FOR IS = 1 TO NS 

120 4$ = MIDS (CHS,1S,1): REM EXTR 
ACTION 

130 CS = ASC (AS): REM CODE 

140 SS = CS - 31: REM NUMERO SHAPE 


150 HCOLOR= 0: DRAW 43 AT XS,YS: REM 


EFFACE 


160 HCOLOR= 3: DRAW SS AT XS,YS: REM 


ECRIT 
170 XS = XS + 6: REM DECALAGE 
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180 NEXT 15 

190 RETURN 

199 REM --EN UNE LIGNE-- 

200 SCALE= 1: ROT= 0: POKE 232,ALX 
: POKE 233,4H4: FOR 1S = 1 TO 
LEN (CH#): HCOLOR= 0: DRAW 43 
AT XS,YS: HCOLOR= 3: DRAW ASC 
CMIDS (CHS,15,1)) - 31 AT XS, 
YS:XS = XS + 6: NEXT : RETURN 


999  REM =PROG.PPAL= 

1000 HR 

1001 A4 = AD / 256:AL% = AD - 256 à 
AH4: POKE 232,AL/: POKE 233,44 
4 

1010 HCOLOR= 3 


1020 VTAB 21: CALL - 958: INPUT * 


CHAINE “;CH$: IF CH$ { } "" THEN 


INPUT “LIGNE ";YS: INPUT "COL 
ONNE ";XS: GOSUB 200: 60TO 102 
0 


La solution en langage 
machine 


Le principe reste le même. 

Le programme est articulé autour de 
la routine DRAW, à l'adresse ROM 
$F601, qui dessine une forme conte- 
nue dans la zone mémoire dont 
l'adresse haute est versée dans le re- 
gistre Ÿ et l'adresse basse dans le re- 
gistre X, le paramètre de rotation 
(zéro) étant contenu dans l’accumu- 
lateur. 

L'utilisation de cette routine nécessite 
donc de connaître l’adresse de cha- 
cune des formes. 


Structure des tables de formes 


Le calcul de l'adresse absolue de la 
forme numéro i s'opère de la façon 
suivante : 


e soit SHAPE l'adresse de début de 
table 

e on verse cette adresse en page 
zéro dans deux octets consécutifs, 
aux adresses TABLE et TABLE+1 

e on verse dans l'accumulateur le 
numéro i de la forme à dessiner. 
L'adresse relative de cette forme 
est contenue dans les octets 
"SHAPE + 2i” et "SHAPE + 2i 
+ 1” (que l’on atteint par adres- 
sage indirect indexé). On obtient 
l'adresse absolue en ajoutant cette 


a 


is 


adresse relative à l'adresse 
SHAPE. 
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Le programme HGRECR.LIB 


Le programme source est listé ci- 
après. Le code objet donné dans la 
récapitulation, relogeable, intègre la 
table ASCIISET, celle-ci suivant la 
routine d'écriture proprement dite 
(longue de 168 octets). 


Commentaires 


— Lignes 48-59 : nécessaires au cal- 
cul de l'adresse de la table, puisque 
le programme est relogeable. Ce der- 
nier consulte la pile du microproces- 
seur pour connaître sa propre 
adresse. En ajoutant la longueur de 
la routine, on obtient l'adresse de la 
table située à sa suite. Cette adresse 


est versée en TABLE =$CE et 
TABLE+1 = $CF, généralement 
libres. 


— Lignes 63-66 : on empile l'échelle 
et la couleur en cours, afin de les 
sauvegarder. 


— Lignes 72-83: on saisit dans le 
texte du Basic le nom de la variable 
alphanumérique à écrire. Le nombre 
de caractères est porté en LONCH, 
l'adresse de la chaîne en ADRCH (et 
ADRCH+1). 

— Lignes 87-92 / lignes 96-97 : saisie 
des coordonnées du premier carac- 


tère. Noter que X occupe 2 octets 
(PXH et PXL) et Y un seul (PY). 


— Lignes 101-102 : les caractères se 
dessinent à l'échelle 1. 


— Ligne 104 : Y sert de compteur de 
caractères. 


— Lignes 106-109 : le caractère cou- 
rant est empilé. 


— Lignes 113-119: efface avant 
d'écrire, en dessinant un carré (forme 
numéro 63) de couleur noire. 


— Lignes 124-129 : on récupère le 
code ASCII du caractère sur la pile et 
on calcule le numéro de forme cor- 
respondant en déduisant #$1F (soit 
31), puis on la dessine. 

— Lignes 133-138 : le décalage du 
caractère suivant s'obtient en incré- 
mentant l’abscisse X de la quantité 


Programme de démonstration 


#TRANS, ici fixée à 6. 


— Lignes 142-146: on récupère le 
numéro du caractère sur la pile, on 
l'incrémente et on vérifie si la chaîne 
a entièrement été écrite ou non. 


— Lignes 150-155 : on restitue cou- 
leur et échelle en cours. Fin de rou- 
tine. 

— Lignes 159-162: modification 
classique du pointeur de pile dans les 
programmes relogeables. 


— Lignes 164-173: calcul de 
l'adresse absolue de la forme à dessi- 
ner; cette adresse est empilée provi- 
soirement. 


— Lignes 175-178: positionnement 
du curseur à l'écran. 


— Lignes 179-184 : dessine la forme. 
— Lignes 186-187: fin de procé- 
dure. 

— Lignes 189-190: c'est l’assem- 
bleur qui calcule pour nous la lon- 
gueur de la routine... sympa ! 


Remarques 


HGRECR.LIB ne modifie ni l'échelle, 
ni la couleur en cours dans le pro- 
gramme Basic. Il est compatible avec 
une autre table de formes puisqu'il 
n'utilise pas les adresses $E8-$E9 
(232-233). 


Utilisation 
(1) Charger, selon la taille du pro- 
gramme Basic et la page HGR utili- 


sée, la routine HGRECR.LIB en mé- 
moire (adresse AD). 


(2) Protéger page graphique et rou- 
tine par LOMEM et/ou HIMEM. 


(3)-Syntaxe : 
CALL AD, CH, H, V 


la virgule sert de séparateur entre 
chaque paramètre. 

CH$ = variable alphanumérique 
contenant la chaîne à écrire. 

H = colonne du premier caractère. 

V = ligne d'écriture. 

(H et V sont des expressions numéri- 
ques) 


(4) Limitations : 


e CH ne doit contenir que des ca- 
ractères dont le code ASCII est 
compris entre 32 et 94 (pas de ca- 
ractères de contrôle notamment) 

e I] ny à pas de vérification de la 
longueur du mot : attention ! 


(5) Possibilités : 

On peut changer la police de carac- 
tères (utiliser des minuscules, des al- 
phabets étrangers ou spéciaux). Il 
suffit pour cela de remplacer la table 
existante par une autre à la suite du 
programme. La forme numéro 63 
doit être un carré plein. 

Voir HGRECR.DEM pour un exem- 
ple d'application. 


Etude comparative 
Occupation mémoire 


La ligne Basic condensée n'occupe 
que 96 octets, à comparer aux 168 
octets de la routine en langage ma- 
chine. Toutefois, on n’a pas pris en 
compte les variables auxiliaires que 
nécessite le Basic. 


Vitesse d'exécution 


Le test consistant à écrire les 1000 
premiers nombres à l’aide des deux 
procédés donne : 

BASIC : 1 minute 14 secondes 
MACHINE : 53 secondes 

ce qui est éloquent. 


Comparaison qualitative 


BASIC : 

e tient en une ligne 

e modifie les paramètres HGR 

e nécessite un indice de boucle et 
des transferts de chaîne 


MACHINE : 

e syntaxe condensée 

e pas de modification des variables 
Basic 

e esthétique du programme 

e utilisation possible dans une biblio- 
thèque gérée par l'’ampersand (&) 


25 HM = HM - 923: HIMEM: HM: PRINT 


CHR$ (4) "BLOADHGRECR.LIB,A"HM 
: REM NEW.HIMEM 

30 DATA "EXEMPLE -> GANTT®,"EXEMPL 
E —-> HISTOGRAMME" , "EXEMPLE -—)} 
RESEAU" ," SYNTAXE INSTRUCTION", 
“POLICE CARACTERES" , "DEMO .AUTO 


", "RETOUR BASIC":NC = 6: DIM M 
$SC(NC)D: FOR I = O0 TO NC: READ M 
$CI): NEXT 

35 DATA "TERRASSEMENTS" , " FONDATION 
S" , "RESEAUX" , "MURS EXTERI EURS"* 
; "CLOISONS" , "PLANCHER" , * COUVER 
TURE" ,"FUMISTERIE" , "MENUISERIE 


15 HM = PEEK (115) + 256 * PEEK ( 


116): REM HIMEM 
20 IF PEEK (HM) = 32 AND PEEK (CH 
M + 1) = 88 THEN 30 
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S" ,"ENDUITS" ,"PEINTURES": DIM 
G$(10): FOR I = 0 TO 10: READ 

G$(1): NEXT 

40 DATA 10,30,30,60,60,80,100,150 
,170,200,50,100,30,160,40,120, 
140,60,80,150: FOR 1 = 1 TO 10 
: READ X(ID): NEXT : FOR 1 = 1 TO 
10: READ Y(I): NEXT 

45 DATA "PARIS" , "MARSEILLE" , "LYON" 
," BORDEAUX" , "LILLE" ," TOULOUSE" 
, " STRASBOURG" , "RENNES" , "ORLEAN 
S","LENS" ,"LE PUY": FOR 1 = 1 TO 
10: READ R$(ID: NEXT 

60 GOTO 10000 

995 REM ---EXEMPLE--- 

1000 HCOLOR= 1 

1005 FOR I = 0 TO 10 

1010 Y = 10 »* I + 1) 

1015 CALL HM,G8(1),10,Y 

1020 X1 = 100 + 15 * I + RND (1) * 
10:X2 = 200 + RND (1) * 79 


1025 FOR J = - 3 TO 3: HPLOT X1,J 
+ Y TO X2,J + Y: NEXT 
1030 NEXT 


1035 A$ = “UN EXEMPLE D'EMPLOI :": CALL 
HM,A$,50 ,130 

1040 A$ = “ DIAGRAMME-GANTT ": FOR 
I = 10 TO 170 STEP 6: CALL H, 
A$,1,150: NEXT 

1045 RETURN 

1995 REM ---SYNTAXE--- 

2000 A$ = "SYNTAXE DE L’ INSTRUCTION 
“: CALL HM,A$,100,20: HPLOT 90 
,30 TO 250,30 

2005 À$ = "CALL ADR,CHS,C,L": CALL 
HM,A$ ,50 ,50 

2010 A$ = "ADR = ADRESSE DE CHARG 
EMENT DE LA ROUTINE": CALL HM, 


A$,10,100 

2015 À$ = "AS = VARIABLE ALPHANU 
MERIQUE À ECRIRE": CALL HM,AS$, 
10,110 

2020 A$ = "C = COLONNE DU PREMI 
ER CARACTERE": CALL HM,A$,10,1 
20 

2025 A$ = "L = LIGNE D’ECRITURE 


“": CALL HM,A$,10,130 
2030 RETURN 
2995 REM ---POLICE--- 
3000 REM ÀA$ = "“CARACTERES DISPONIB 
LES :": CALL HM,A$,100,20: HPL 
OT 90,30 TO 250,30 
3005 HCOLOR= 3: FOR I = 0 TO 8: HPLOT 
30 *# 1,0 TO 30 * 1,191: NEXT : 
HPLOT 0,0 TO 240,0: HPLOT 0,2 
0 TO 240,20: HPLOT 0,191 TO 24 
0,191 
3010 À$ = "CARACTERES DISPONIBLES": 
FOR. I = 1 TO LEN CA$)D:C$ = MID$ 
(CA$S,1,1): CALL HM,C$,250,8 * I 
: NEXT 
3015 À$ = "NO.": FOR I = 0 TO 3: CALL 
HM,A$,10 + 60 *x 1,10: NEXT :A$ 
= "CAR": FOR I = O TO 3: CALL 
HM,A$,40 + 60 * 1,10: NEXT 
3020 FOR I = 1 TO 62 
3025 N$ = STRS (I):4$ = CHR$ (I + 
31):Q% = (I - 1) / 4:RZ = (I - 
1) - 4 x GZ:X = 10 + 60 x RZ:Y 
= 30 + 10 * Q 
3030 CALL HM,NS,X,Y: CALL HM,AS,X + 
30 ,Y 
3035 NEXT 
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3040 RETURN 

3995 REM --HISTOGRAMME-- 

4000 HCOLOR= 3: HPLOT 10,10 TO 10, 
150 TO 260,150 

4010 FOR I = 0 TO 4:Y# = 150 -  RND 
C1) # 140:Y8 = STRS (150 - YZ 
DiX1 = 10 + 50 »* I:X2 = X1 + 5 
0: HPLOT X1,150 TO X1,YZ TO X2 
,YA TO X2,150: CALL HM,Y$,50 * 
I + 20,YX - 5 

4015 STX = (I + 1): FOR L = YZ TO 1 
50 STEP STZ:Z% = NOT ZZ: FOR 
C = X1 + 24 * ST TO X2 - 2% * 
ST STEP ST + 1: HPLOT C,L: NEXT 
: NEXT : NEXT 

4020 À$ = "HISTOGRAMME": CALL 
HM,A8,50,160 

4700 RETURN 

4995 REM --RESEAU-- 

5000 HCOLOR= 3 

5005 FOR I = 1 TO 10: FOR J = 1 TO 


10 

5010 R = RND (1): IF R < .8 AND R > 
.2 THEN HPLOT X(1D,YCI) TO XC 
HE VCD 


5020 NEXT : NEXT 
5030 FOR I = 1 TO 10: CALL HM,R#(I 


Ebay 


Rp 


),XC1D,YCID: NEXT a 
5040 A$ = "RE S E À U“: CALL HM,AS$ à 
,180,10 +] 
5100 RETURN da 
5995 REM --DEMO.AUTO-- 4. 
6000 B = 1 E 
6005 HGR : POKE - 16302,0: ON B GOSUB L£ 
1000,4000,5000,2000,3000 ji 
6010 FOR 1 = 1 TO 1000: IF PEEK « 5* 
K) > 127 THEN RETURN à 
6011 NEXT #1 
6015 B = B + 1: IF B > 5 THEN B = 1 
6020 GOTO 6005 
9999 REM ===MENU.PPAL== 
10000 TEXT : NORMAL : HOME :S = - 
16336:KS = — 16368:K = -— 163 
84 
10010 GOTO 11000 
10020 FOR I = 1 TO 40: PRINT "-";: 
NEXT : RETURN 
10030 INVERSE :X = PEEK (S) - PEEK 
(S) + PEEK (S) - PEEK (5) 
10040 UVTAB 10 + I: PRINT M#CI): NORMAL 
: RETURN 
11000 GOSUB 10020: PRINT “"DEMONSTR 
ATION ECRITURES": PRINT "EN PA 
GE GRAPHIQUE HAUTE-RESOLUT I ON" 
: GOSUB 10020 
11010 UTAB.10: FOR I = 0 TO NC: PRINT 
M$CID: NEXT 
11020 I = 0 
11030 GOSUB 10030: POKE KS,0: WAIT 
K,128: POKE KS,0:A = PEEK (K) 
: GOSUB 10040 
11040 IF À = 21 THEN I = I + 1: IF 
I = NC + 1 THEN I = 0 
11050 IF À = 8 THEN I = I - 1: IF 
I = - 1 THEN I = NC 
11060 IF À < > 13 THEN 11030 
11070 HGR : POKE - 16302,0: ON I + 
1 GOSUB 1000,4000,5000 ,2000,30 
00,6000,12000: GET A$: GOTO 10 
000 
12000 HOME : TEXT : END 
 * 


63 


Assembleur Toolkit 1000:20 58 FF 483 DEBUT JSR RETURN 


1003:BA 49 TSX 
SOURCE FILE: HGRECR 1004:CA 50 DEX 
0000: 1 ;E.RINGOT LE 2/6/84 1005:CA si DEX 
0000: D _sjmmmmsosmmmmsmms 1006:9A 52 TXS 
—_——— 1007:18 53 CLC 
0000: 3 ;ECRITURES DE CHAINES 1008:48 54 PLA 
0000: 4 ;EN PAGE HAUTE-RESOLUT 1009:69 A6 55 ADC  #HLONG 
ION 1008:85 CE 56 STA TABLE 
0000: 5 ; 100D:68 57 PLA 
0000: 6 ;HGRECR.LIB RELOGEABL 100E:69 00 58 ADC #0 
E 1010:85 CF 59 STA TABLE+1 
0000: 7 og 1012: 60 ; 
= 1012: 61 3<3/>-SAUVEGARDE ENVIR 
0000: 8 ; ONNEMENT HAUTE RESOLUT I ON 
0000: 9 ;MODE D'EMPLOI 1012: 62 ; 
0000: 10 ; 1012:A5 Eg 63 LDA  HCOLOR 
0000: 11 ;SYNTAXE : CALL ADR, 1014:48 64 PHA 
CHS,X,Y 1015:A5 E7 65 LDA SCALE 
0000 12 ; 1017:48 éé PHA 
0000: 13 ;CH#=VARIABLE ALPHANU 1018: 67 ; 
MERI QUE 1018: 68 ;3<4)>-SAISIE ARGUMENTS 
0000: 14 :X  ABSCISSE 1018: 69 : 
0000: 15 ;Y  ORDONNEE 1018: 70 ;4/1/EXPRESSION À EDIT 
0000: lé ; ER 
._ ----- NEXT OBJECT FILE NAME 15 HGRECR.O0BJ 1018: 71 ; 
à 0 1013:20 BE DE 72 JSR  CHKCOM 
; 1000: 17 ORG #1000 101B:20 E3 DF 73 JSR PTRGET 
5 ; POUR ASSEMBLAGE SEULEMENT 
E 1000: 18 ; 101E:20 6C DD 74 JSR  CHKSTR 
“) 1000: 19 ;3<1)-ROUTINES ROM 1021:A0 00 75 LDY #0 
Es 1000: 20 ; 1023:B1 83 76 LDA  CUARPNT), 
52 0083: 21 VARPNT EQU $93 Y 3 LONGUEUR 
ra ÿPOINTE SUR LA LONGUEUR 1025:85 08 7 STA LONCH 
M oese 22 CHKCOM EQU #DEBE 1027:C8 78 INY 
s ;VERIFIE PRESENCE VIRGULE 1028:B1 83 79 LDA  CUARPNT), 
“  DDéC: 23 CHKSTR EQU #$DDé6C Y ADRESSE BASSE 
fe ;VERIFIE LA PRESENCE D’UNE CHAIN 102A:85 06 80 STA  ADRCH 
E 102C:C8 81 INY 
DFE3: 24 PTRGET EQU #$DFE3 102D:B1 83 82 LDA  CUARPNT), 
3SAISIT UNE VARIABLE Y ADRESSE HAUTE 
E105: 25 GETINT EQU #E105 102F:85 07 83 STA  ADRCH+1 
3SAISIT UN ENTIER SUR 2 OCTETS 1031: 84 ; 
EéFS: 26 GTBYTC EQU #$EéFs 1031: 85 ;4/2/ABSCISSE 
3SAISIT UN ENTIER SUR 1 OCTET 1031: 8é ; 
Fé01: 27 DRAU EQU $F401 1031:20 BE DE 87 JSR  CHKCOM 
1034:20 05 E1 88 JSR GETINT 
F411: 28 HPOSN EQU $F411 1027:45 A1 es LDA FACLO 
1037:e5 EQ 90 STA  PXL 
FF58: 29 RETURN EQU %FF58 103B:A5 A0 91 LDA  FACMO 
3 INSTRUCTION RTS 1030:85 E1 92 STA  PXH 
1000: 30 ; 103F: 93 ; 
1000: 31 ; <22-PARAMETRES 103F : 94 ;4/3/0ORDONNEE 
1000: 32 : 103F: 95 ; 
90A0 : De FAO) ER: 569 103F:20 FS Eé 96 JER GTBYTC 
00A! : 34 FACLO EQU sai! 1042:86 E2 97 STX PY 
00E0: 35 PXL EQU $E0 1044: 98 ; 
O0E1: 36 PXH EQU $#E! 1044: 99 ;<5)-ECRITURE DE LA CH 
00E2: 37 PY EQU $E2 AINE 
00CE: 38 TABLE  EQU $CE 1044: 100 ; 
;ET $CF 1044:A9 01 101 LDA #1 
00E4: 39 HCOLOR EQU $E4 1046:85 E7 102 STA SCALE 
00E7: 40 SCALE  EQU %E7 ; ECHELLE 
0006: 41 ADRCH EQU #06 1048: 103 ; 
0008: 42 LONCH EQU #08 1048:A0 00 104 LDY #0 
;1ER CARACTERE 
003F: 43 CARRE  EQU 63 1044: 105 ; 
0006: 44 TRANS  EQU $%é6 1044:98 106 WRITE  TYA 
; TRANSLATION CURSEUR ; EMPILAGE 
1000: 45 ; 104B:48 107 PHA 
1000: 46 ;<3)>-ADRESSE TABLE DE ;=NUMERO CARACTERE 
FORMES 104C:B1 06 108 LDA  CADRCH) ,Y 
1000: 47 ; 104E:48 107 PHA 


Htéteei tt TE 
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104F : 110 ; 1079:68 150 PLA 


104F : 111 ;5/1/EFFACE UN CARRE 1074:85 E7 151 STA SCALE 
104F: 112 ; 107C:68 152 PLA 
104F:A9 00 113 LDA  H#$00 1070:85 E4 153 STA  HCOLOR 
107F: 154 ; 
1051:85 Ed 114 STA  HCOLOR 107F:60 155 RTS 
; COULEUR NOIRE ;OUI, RETOUR BASIC 
1053:A9 3F 115 LDA  HCARRE 1080: 156 ; 
1055:20 58 FF 11é JSR RETURN 1080: 157 ;<7>-PROCEDURE DE TRAC 
1058:50 26 117 BUC DESSIN E DE FORME 
1054:A9 7F 118 LDA H#$7F 1080: 158 ; 
; COULEUR BLANCHE 1080 :BA 159 DESSIN TSX 
105C:85 E4 119 STA  HCOLOR ; PROGRAMME 
105E : 120 ; 1081:CA 160 DEX 
105E: 121 ;5/2/DESSINE LE CARAC ; RELOGEABLE 
TERE : 1082:CA 161 DEX 
105E: 122 ; ;CF.POM’S 7 
105E: 123 ; 1083:9A 162 TXS 
105E:68 124 PLA ;PAGE 27 
105F :38 125 SEC 1084: 163 ; 
1084:0À 164 ASL A 
1060:E9 1F 126 SBC #H#1F ; DOUBLE LE NUMERO 
; CALCUL NUMERO FORME 1085:A8 165 TAY 
1062: 127 ; 1086:B1 CE 166 LDA (TABLE) ,Y 
1062:20 58 FF 128 JSR RETURN ;LSB INDEX FORME 
1065:50 17 129 BUC DESSIN 1088:18 167 CLC 
1067: 130 ; 1089:65 CE 168 ADC TABLE 
1067: 131 ;5/3/TRANSLATION DU C 109B:48 169 PHA 
URSEUR 108C:C8 170 INY 
1067: 132 ; 108D:B1 CE 171 LDA (TABLE) ,Y 
1067:18 133 CLC ;MSB INDEX FORME 
1068:AS E0 134 LDA  PXL 108F:45 CF 172 ADC TABLE+1! 
10$4:69 Dé 135 ADC  H#TRANS 1091:48 173 PH 
106C:85S EQ 136 STA PXL 1092: 174 ; 
106E:D0 02 137 BNE SUITE 1092:A6 E0 175 LDX PXL 
1070:Eé Ei 138 INC PXH 1094:44 El 176 LDY PXH 
1072: 139 ; 1096:A5 E2 177 LDA PY 
1072: 140 ;5/4/CARACTERE SUIVAN 1098:20 11 F4 178 JSR  HPOSN 
T 109B:68 179 PLA 
1072: 141 ; 109C:A8 180 TAY 
1072:48 142 SUITE  PLA 107D:68 181 PLA 
3DEPILE LE NUMERO CARACTERE 109E :4A 182 TAX 
1073:A8 143 TAY 109F:49 00 183 LDA #0 
1074:C8 144 INY ÿROTATION NULLE 
; CARACTERE SUIVANT 1041:20 01 Fé 184 JSR DRAW 
1075:C4 08 145 CPY  LONCH 1044: 185 ; 
;EST-CE-FINI ? 10h4:2C 58 FF 184 BIT RETURN 
1077:D0 D1 146 BNE UWRITE 1047:60 187 RTS 
ÿNON ! ON CONTINUE 1048: 188 ; 
1079: 147 ; 1048: 189 SHAPE EQU * 
1079: 148 ;3<6)-RESTITUTION ENVIR | 006: 170 LONG EQU  SHAPE-DEB 
ONNEMENT HAUTE RESOLUTION UT -2 
1079: 149 ; 
1088- 18 65 CE 48 C8 B1 CE 45 1128- 5B 49 02 00 52 22 20 24 
HGRECR.LIB 1090- CF 48 Âé E0 A4 Ei AS E2 1130- 2C 00 08 24 iF 36 06 00 
1098- 20 11 F4 68 À8 68 AÀ A9 1138- 34 67 3C OC éC BE 2D 1E 
1000- 20 58 FF BA CA CA 9A 18 1040- 00 20 01 Fé 2C 58 FF 460 1140- 2E 1E FE 2C 00 E7 OC 25 
1008- 68 69 ÂAé 85 CE 68 69 00 1048- 3F 00 80 00 84 00 8A 00 1148- 15 FS AB 15 1F 15 3F 77 
1010- 85 CF AS E4 48 AS E7 48 1080- 90 00 9D 00 AA 00 BS 00 1150- 29 00 OC OC DC 38 2E 96 
1018- 20 BE DE 20 E3 DF 20 6C 1088- C1 00 CS 00 CD 00 DS 00 1158- 17 4D 2E 24 00 60 1C BF 
1020- DD A0 00 Bi 83 85 08 C8 10C0- E2 00 EÂ 00 EE 00 F3 00 1160- AE 17 76 635 1C 0D 16 07 
1028- B1 83 85 046 C8 Bi 83 85 10C8- Fé 00 FD 00 0B 01 13 01 1168- 00 08 24 05 00 92 1C 1C 
1030- 07 20 BE DE 20 05 Ei A5 1000- 1D 01 28 01 32 01 3E 01 1170- 24 OC OC 06 00 92 OC OC 
1038- A1 85 EO ÀS A0 85 E1 20 10D8- 48 01 51 01 5C 01 67 01 1178- 24 1C 1C 06 00 3C 1C 4C 
1040- FS Eé 86 E2 À9 01 85 E7 10E0- 6B 01 70 01 79 01 81 01 1180- 6E 1E 16 3F 17 00 OD DE 
1048- A0 00 98 48 Bi 06 48 A9 10E8- 84 01 94 O1 A1 01 AD 01 1188- 07 00 20 8D 34 3F 77 31 
1050- 00 85 E4 A9 3F 20 58 FF 10F0- B9 01 C4 01 DO 01 DD 01 1190- 05 00 89 Fé 04 00 3F 4C 
1058- 50 26 A9 7F 85 E4 68 38 10F8- E7 01 F2 01 FE 01 07 02 1198- 11 35 00 12 05 00 OC 0C 
1060- E9 1F 20 S8 FF S0 19 18 1100- OF 02 1C 02 25 02 31 02 1140- Dé DA 1E 06 00 0C 25 1C 
1068- AS E0 69 06 85 E0 DO 02 1108- 3D 02 49 02 53 02 5F 02 1148- 3F 17 36 2E 1E 0E 2D 0C 
1070- Eé Ei 68 A8 C8 C4 08 DO 1110- 6C 02 77 02 80 02 8B 02 11B0- 24 07 00 24 BC 96 31 17 
1078- D1 68 85 E7 68 85 E4 60 1118- 96 02 A2 02 ÀE 02 B7 02 1188- 2D 04 00 45 E4 3F 17 95 
1080- BA CA CA 94 DA A8 B1 CE 1120- C2 02 CA 02 Di 02 D9 02 11C0- BA 2E 2D 25 00 25 OC 3C 


a: 2-2 LE LM %# 
EE  _ _ _ _ _ _” 
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| 


we 


ES 





1268- 2D 15 06 00 09 36 1E 3F 
1270- 27 24 24 2C 2D 15 3E 00 
1278- 39 B7 3A 24 24 24 2D 2D 
1280- 96 92 3F 04 00 39 B7 iA 
1288- 24 24 24 2D 2D 06 00 11 
1290- 3S 3E 3F 1C 24 24 OC 2D 
1298- 35 00 2B 2D 24 FC 1B 346 
12A40- 36 36 4D 21 24 00 52 3A 
12A8- 67 24 24 3C 2D 06 00 9B 
12B80- 72 2D OC 24 24 3C 00 73 
12B8- 0E 15 DF 23 24 24 6C 09 
12C0- 1E 1E 06 00 89 12 3F 3F 
12C8- 24 24 24 05 00 EO 1C 34 
12D0- 36 36 4D 21 24 24 BC 06 
1208- 00 0E 56 24 24 24 DF 33 
12E0- 2E 1E 36 2E 00 92 E7 24 
12E8- 24 OC 2D 15 36 36 17 05 
12F0- 00 65 3C 38 3F 36 2E 1E 
12F8- 36 05 00 AA 15 1F 3F 20 
1300- 24 464 2D 15 36 36 00 77 


1308- 15 15 DF 23 24 24 2C 2D 
1310- 15 BE 06 00 E7 64 2D 15 
1318- 97 15 Fé 3F 1C 04 00 24 
1320- 1F 28 2D F5 92 33 2E 00 
1328- 92 E7 24 24 6C 09 36 36 
1330- BE 0S 00 92 1C 1C 24 24 
1338- 4D 31 36 BE 06 00 Fé 1E 
1340- 24 24 24 4D 31 36 BE 353 
1348- 07 00 OC OC FC 18 76 14 
1350- 17 6E 09 E4 04 00 1C 1C 
1358- 6C 09 Fé Dé 36 05 00 0C 
1360- 0C 3C 3F 77 92 17 2E 2D 
1368- 23 00 24 2C BS D2 33 2E 
1370- 2D 00 1C 1C Sé 44 0E 06 
1378- 00 24 3C B7 52 31 3E 3F 
1380- 00 25 3F 36 2D 25 24 3F 
1388- 3F 36 36 2D 2D 25 24 24 
1390- 3F 3F 3F 36 36 36 2D 2D 
1398- 2D 05 00 85 





DISK CHECK-UP 


Alexandre Avrane 


Mieux vaut prévenir que guérir, pa- 
raît-il. et que celui d'entre vous qui 
n'a jamais vu le message l'O ERROR 
apparaître sur son écran me jette la 
première pierre. 

Les disquettes courantes sont (théori- 
quement) certifiées pour une durée 
utile d'une soixantaine d'heures. 
Mais comme personne n'a le courage 
de déclencher un chronomètre à 
chaque appel au DOS, il est bien dif- 
ficile d'en évaluer l'état d'usure. 


Le programme DISK CHECK-UP vé- 
rifie les disquettes initialisées par 
DOS 3.3, Pascal, ProDOS, CP/M. 
MEM/DOS et autres systèmes d'ex- 
ploitation de l'Apple reposant sur la 
PROM 16 secteurs et son standard 
de formatage physique. Il indique 
l'état physique de vos disquettes. 
Mais, à la différence des utilitaires qui 
fournissent la liste des secteurs illisi- 
bles et éventuellement quelques mé- 
thodes pour les récupérer en partie, 
ce programme donne, à l'avance. 
une indication sur l'intégrité physique 
de vos disquettes et leur usure. En 
revanche, l'intégrité logique, en parti- 
culier les pointeurs utilisés par le sys- 
tème d'exploitation pour relier le di- 
rectory aux fichiers, n'est bien 
entendu pas contrôlée. 


Fonctionnement du DOS 


Le DOS de l'Apple est un animal pa- 
tient et bien dressé : pour calmer la 
tension nerveuse de son utilisateur, il 
ne lui fournit le dramatique message 
d'/O ERROR qu'après avoir vaine- 
ment tenté 96 fois de lire le secteur 
demandé. Plus exactement, il essaie 
d'abord 48 fois puis, s’il n’est pas en- 
core parvenu à obtenir correctement 
le secteur, il recalibre le bras de lec- 
ture (c'est le bruit vibrant et très dé- 
sagréable car souvent annonciateur 





de catastrophe) pour effectuer à nou- 
veau 48 tentatives. 


Contrôles effectués 


Le programme demande au DOS 
d'observer l'ensemble de la disquette 
et relève, pour chaque secteur, le 
nombre de tentatives infructueuses. 
Normalement, ce nombre doit être 
très faible: il s'affiche en hexadécimal 
(0, 1, ...F), en mode normal pour la 
plage de valeurs 1 à 16. en inverse 
pour 17 à 32, en flash pour 33 à 48. 
Les valeurs 1 et 2 sont affichées par 
un simple point (.) afin d'’aérer 
l'écran. Toute autre valeur affichée 
en mode normal (donc inférieure à 
16) n'est pas inquiétante immédiate- 
ment. En revanche, si le programme 
affiche des secteurs en inverse ou en 
flash, il devient urgent de faire une 
copie de la disquette. Le programme 
ne se préoccupe pas des valeurs su- 
périeures à 48 car celles-ci ont dé- 
clenché le recalibrage du bras de lec- 
ture et il est alors fortement 
déconseillé de continuer à utiliser la 
disquette. Si la tentative de lecture se 
solde par un échec complet, un ”?” 
est affiché en flash. 

Théoriquement, un secteur est ob- 
tenu avec succès après 8 tentatives 
en moyenne: en effet, une piste 
contient 16 secteurs et la tête de lec- 
ture peut se trouver à n'importe 
quelle position sur la piste. Néan- 
moins, et afin d'accélérer le temps 
d'exécution, le programme est mi- 
nuté de manière à minimiser le nom- 
bre de lectures, en gérant le secteur 
demandé selon la position de la tête. 
En conséquence, seul le secteur 0 de 
la piste O doit, théoriquement, pré- 
senter un nombre non négligeable 
d'accès. 

Les valeurs obtenues sur les autres 
secteurs de la piste zéro. et sur les 


autres pistes, doivent normalement 
être très faibles: elles dépendent non 
seulement de l'usure physique de la 
disquette, mais également de la clé 
de traduction entre numéro de sec- 
teur logique et secteur physique 
(c'est un paramètre interne utilisé lors 
de l'initialisation d'une disquette). 
Dans tous les cas, ces valeurs doivent 
être inférieures à 16 pour indiquer 
une qualité correcte. 


Exécution 
du programme 


Le programme se lance par un sim- 
ple BRUN DISK CHECK-UP.M et se 
charge en $900. Il nécessite que le 
DOS 3.3 soit chargé en mémoire 
(éventuellement sur la carte langage). 
L'utilisateur indique simplement les 
numéros de slot et de drive conte- 
nant la disquette à vérifier, puis le 
nombre de tentatives de lecture pour 
chaque secteur s'affiche. Dans tous 
les cas, RETURN valide la saisie, 
ESC annule l'opération en cours. 
Pour mieux apprécier l'exécution du 
programme, ouvrez légèrement et 
quelques instants la porte du lecteur 
et observez le résultat! 

Le fichier DISK  CHECK-UP.S 
contient le source en Big Mac. Le 
fonctionnement interne du  pro- 
gramme repose sur l'examen de 
l'adresse $578 (RETRYCNT) utilisée 
par RWTS. 


Quelques derniers 
conseils 


Ce programme est destiné à prévenir 
les problèmes d'usure. Il n’a malheu- 
reusement pas la faculté de savoir 
que vous poserez un électro-aimant à 
côté de vos disquettes demain matin, 
ou que celles-ci vont être empruntées 
par votre petit dernier pour cons- 
truire son château de cartes... 

D'autre part, si vous décidez de 
contrôler, à l'aide de ce programme, 
l'ensemble de votre bibliothèque, ne 
vous arrêtez pas après avoir vérifié 
les quelques disquettes les plus utili- 
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sées: si celles-ci étaient réellement 
usées, il est probable que vous auriez 
déjà eu des ennuis. Les problèmes, 
comme disait Murphy, ne survien- 
nent que sur les disquettes que vous 


sûr, au moment où vous en avez ra- 
pidement besoin. 


Conclusion 
Ce programme ne doit pas induire 


illusoire: il détecte les ennuis latents 
mais n'empêche pas leur apparition: 
ce n'est ni un anti-moustiques, ni un 
traitement contre la rouille... 





n'utilisez quasiment jamais et, bien une impression de sécurité qui serait . 
‘ 26 

Assembleur Big Mac SS L Per 

1 LST OFF 28 ESC : 598 

2 29 BLANK = ss 

3 #6 6 6 26 6 6 36 6 36 36 6 D 6 6 6 36 36 Dé D 26 6 Dé 6 XD Dé 6 6 6 6 6 30 

4 * DISK CHECK-UP * 31 BASL = $28 

5 LÉLLLLLLLLLLLLLLLL LL LLLLLLLLLLL LEZ) 32 TRAP = $48 

6 33 GORUTS = $3D9 

7 # Copyright [C] 1984 À. Avrane 34 DOS L $3EA 

8 35 RETRYENT = +578 

9 *#* M.A.J. : 14/07/84 36 SYMBOL = $4630 

10 * Creation:09/05/84 37 KEYBOARD = $C000 

11 38 STROBE = $C010 

12 # Ce programme virifie 39 PREL2 - $&F944 

13 # l’int£grit£ physique de toute 40 BASCALC = $FBCI 

14 * disquette format£e 16 secteurs, 41 HOME = $FCS8 

15 * en affichant le nombre d'essais 42 WAIT = $FCAB 

1é # requis par RUTS pour lire 43 COUTO = $FDFO 

17 # chacun de ses secteurs. 44 SETVUID = $FE93 

18 * 45 ORG +900 

19 * Affichage des rsultats en 46 

20 * normal si <1é, inverse si 16 47 * Initialise format ecran 

21 # et <32, flash sinon, pour Île 48 »# === 2— 

22 *# premier calibrage. 49 START JSR SETUID 

23 *# Code ? et S si i/o error. 50 JSR HOME 

24 51 LDX #14 

25 LOWCASE = 1 52 JSR PRBL2 set x=0 








LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO-INFORMATIQUE 


Ron 


TRANSMETTEZ-NOUS VOS TEXTES 
PAR TÉLÉPHONE 


su 
0 
DONNEZ-NOUS VOTRE DISQUETTE 


Les textes de Vos articles, catalogues, annuaires ou brochures 
saisis sur votre APPLE sont envoyés directement sur notre photocom- 
poseuse. 


Nous vous évitons ainsi, le coût et le temps de la saisie supplée- 
mentaire que nécessite le traitement traditionnel de la photocompo- 
sition avant l'impression des documents, si vous le désirez nous pou- 
vons également nous charger de l'impression et du brochage. 


TELELOMPO 351665 


hi" ON NE Ace 13 et 15 du Petit Par 
rRaxsMSSON DE DONNEES. 430 L! 





NOTRE RÉFÉRENCE... LA REVUE POM'S 


Le 
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MATEMENT DE TEXTES 














DUT 
na. à NES 





DV11*2 LDA MSGi,X 
BEQ DVI12 
JSR COUTO 
INX 
BNE DV11°2 =jmp 
#*# Demande slot, drive, format 
+ ESS 
DV12Z = * 
LDX #8+$80 
JSR GETKEY 
BCS GOEXIT 
BEQ DVI2°1 
PHA 
ORA  H$B0 
STA MSGSLOT 
PLA 
ASL 
ASL 
ASL 
ASL 
STA  IOBSLOT 
DU12*1 LDX #23+$80 
DUV12°2 JSR GETKEY 
GOEXIT BCS EXIT 
BEQ DV2°0 
CMP #3 
BCS DVI2°2 
STA  IOBDRIVE 
ORA  #$B0 
STA MSGDRIVE 
# Boucle sur les pistes 
CE 1. | | 
DVU2*0 LDA #0 
STA  IOBTRACK 
STA IOBLVOL 
* Boucle sur les secteurs 
À === EEE 
DV2*1 LDY #$FF 
STY SECTPTR 
DU20*2 INC SECTPTR 0-15 
LDY  SECTPTR 
CPY #16 last? 
BCS DV31°9 
LDA SECTABL,Y 
STA  IOBSECTR 
ADC #8 carry=0 
JSR  BASCALC set basl 
LDA KEYBOARD 
BPL DV20°3 
CMP  HESC 
BNE  DV20°3 
STA STROBE 
BEQ EXIT =jmp 
GOSTART BEQ START 
DV20 * 3 LDA #)>10B 
LDY #<I0B 
JSR  GORWTS 
BCS DV31°3 
LDY  RETRYCNT $01-$30 
DEY 
LDA  TBLUALUE,Y 
DU31 "2 LDY  IOBTRACK 
INY 
INY 
STA  (BASL) ,Y 
BNE DU20°2 =jmp 


126 
127 
128 
129 
130 
131 

132 
133 
134 
135 
136 
137 
138 
139 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
150 
151 

152 
153 
154 
155 
156 
157 
158 
159 
160 
161 

162 
163 
164 
165 
1éé 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 

182 
183 
184 
185 
186 
187 
188 
189 
190 

191 

192 
193 
194 
195 
196 
197 
198 


DU31°3 = 
LDA 
LSR 
LSR 
LSR 
LSR 
TAY 
LDA 
BNE 


DU31°9 = 
INC 
LDA 
CMP 
BCC 


« 
I10B°STAT 


TBLSTAT,,Y 
DU31°2 =jmp 
# 

IOBTRACK 
IOBTRACK 

#$23 

DU2°1 


* Autre disque ou quitte 


# ==2HTT=EITETS=====-=== 


EXIT = 
LDX 
LOOPEXIT LD 
BEQ 
STA 
INX 
BNE 
STA 
LDX 
JSR 
BCS 
BEGQ 
JSR 
JMP 


LOOPX"0 
LOOPX "1 


BYE 


* 

#30 
MSG2-30 ,X 
LOOPX"0 
SYMBOL-$80 ,X 


LOOPEXIT 
TRAP 

#38 
GETKEY 
BYE 
GOSTART 
HOME 

DOS 


=jmp 


=)j mp 


*# Saisie touche / curseur special 


# === —— 


STX 
STX 


GETKEY 


WAITKEY  LDA 
SCREENI = 
EOR 
PUTKEY STA 
SCREEN2 = 


AND 
CHECKEY1I CLC 
CHECKEY2 RTS 


SECTPTR DFB 


SCREEN1I 
SCREEN2 
| Ta Ge 
PUTKEY 
SYMBOL 
*-—2 

#i 
SYMBOL 
*-2 

#é 

WAIT 
KEYBOÂRD 
WAITKEY 
STROBE 


=jmp 


#BLANK 
SYMBOL-880 ,X 
STROBE 


HESC 
CHECKEY2 
#CR 
CHECKEY1 
#S80 
GETKEY 
#"1" 
GETKEY 
#"g" 
GETKEY 
SYMBOL-#100 ,X 
#700001111 1 


carryæi 


thru 7 


0 


SECTABL DFB 0,$E,#D,5C,$B,%A,9,8, 
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7:6:5:4,3,2,1,$F 244 asc "_" 
199 245 DFB CR,CR 
200 TBLUALUE = * 246 INU " PISTE 11 
201 FLS “FEDCBA9876543210" 11111111111111222" 
202 INV "FEDCBA9876543210" 247 DFB CR 
203 ASC "FEDCBA9S8765432, ." 248 INV “  012345678SABCDEF01 
204 TBLSTAT = * 23454789ABCDEF012" 
205 FLS "_PU_?___ gs" 249 DFB CR 
206 250 INU "So" 
207 I0B = “ 251 DFB CR 
208 DFB 1! 252 INU "E1" 
209 IOBSLOT DFB éx$i0 253 DFB CR 
210 IOBDRIVE DFB 1 254 INU  “C2" 
211 IOBVOL  DFB 0 255 DFB CR 
212 IOBTRACK DFB O0 256 INU "T3" 
213 IOBSECTR DFB O0 257 DFB CR 
214 DA  DCT 258 INU "Eg" 
215 DA  +$2000 259 DFB CR 
214 DFB 0,0 260 INU "US" 
217 DFB 1! 261 DFB CR 
218 I1OB*STAT DFB O0 262 INU "Ré" 
219 DFB 0 263 DFB CR 
220 DFB é6*$10 264 INU "7" 
221 DFB 1 265 DFB CR 
222 DCT DFB 0,1 266 INU  " 8" 
223 DA $DSEF 267 DFB CR x 
224 268 INU " 9" ê 
225 MSGi = * 269 DFB CR 
226 INU "DISK CHECK-UP" 270 INU  " A" à 
227 DFB CR,CR 271 DFB CR pe 
228 DO  LOWCASE 272 INU " B" 
229 ASC " Copyright [C] 1984 273 DFB CR 

Alexandre Avrane" 274 INU  " C" 
230 ELSE 275 DFB CR 
231 ASC " COPYRIGHT [IC] 1984 276 INU " D" 

ALEXANDRE AURANE " 277 DFB CR 
232 FIN 278 INU " E" 
233 DFB CR,CR 279 DFB CR é 
234 DO  LOWCASE 280 INU  " F" 
235 ASC "* Slot: _" 281 DFB O0 
236 MSGSLOT ASC "é" 282 
237 ASC "__ Drive: _" 283 MSG2 DO  LOWCASE 
238 ELSE 284 ASC "Encore?" 
239 ASC " SLOT:_" 285 ELSE 
240 MSGSLOT ASC "é" 286 ASC "ENCORE?" 
241 ASC "_ DRIVE:_" 287 FIN 
242 FIN 2893 DFB O0 
243 MSGDRIVE ASC "1" 289 END 
Récapitulation 09B0- F5 85 48 A2 26 20 C2 09  0A73- D9 D2 C9 C7 CS D4 A0 DB 

09B8- B0 02 FO Bé 20 58 FC 4C 0A80- C3 DD A0 B1 B9 B8 B4 A0 
09C0- Eñ 03 8E CD 09 SE D2 09 0A88- A0 C1 CC CS DS C1 CE C4 

0900- 20 93 FE 20 58 FC A2 0€ 09C8- A9 AB DO 05 AD 80 06 49 0A90- D2 C5 A0 C1 Dé D2 Ci CE 
0908- 20 4A F9 BD 45 0A F0 04 09D0- 01 8D 80 0é A9 06 20 A8 0A9S8- C5 8D 80 A0 D3 CC CF D4 
0910- 20 FO FD ES DO F5 A2 88 09D8- FC AD 00 C0 10 EE 8D 10 OAAO- BA DF DF Bé DF DF A0 A0 
0918- 20 C2 09 B0 15 FO 0E 48 09E0- CO 48 A9 A0 9D 00 06 8D 0AA8S- A0 A0 C4 D2 C9 Dé CS BA 
0920- 09 BO 8D A2 0A 68 0 0 09E8- 10 CO 68 C9 9B FO 16 C9 OABO- DF DF 81 DF DF 8D 80 20 
0?28- 0A 0A 8D 51 0A A2 97 20 09F0- 8D FO 11 E0 80 90 CB C9 OAB8- 20 10 09 13 14 05 20 20 
0930- C2 09 80 70 FO OC C9 03 09F3- Bi 90 C7 C? B8 BO C3 90 OACO- 20 20 20 20 20 20 20 20 
0938- B0 F5 30 52 0A 09 B0 8D 0AG0- 80 05 29 0F 18 60 00 00 OACS- 20 31 31 31 31 31 31 31 
0940- B2 0A AS 00 3D 54 04 8D 0A03- 0E 0D 0C 0B 0A 09 08 07 OADO- 31 31 31 31 31 31 31 21 
0948- 53 0A A0 FF 8C 06 0A EE 0A10- 06 05 04 03 02 01 OF dé 0ADS8- 31 32 32 32 3D 20 20 30 
0950- 06 0A AC 06 04 CO 10 B0 0A18- 45 44 43 42 41 79 78 77 OAEO- 31 32 22 24 35 36 37 3e 
0958- 41 B9 07 0 8D 55 0A 69 0A20- 76 75 74 73 72 71 70 0é6 OAE8- 39 01 02 03 04 05 06 20 
0960- 08 20 C1 FB AD 00 CO 10 0A28- 05 04 03 02 01 39 38 37 OAFO- 31 232 33 34 35 36 27 38 
0968- 0B C9 9B DO 07 30 10 CO 0A30- 36 35 34 33 32 31 30 Cé 0OAF8- 39 01 02 03 04 05 04 30 
0970- FO 32 FO 8C A9 0A A0 50 0A38- CS C4 C3 C2 C1 B9 B8 87 0E00- 31 32 8D 13 30 2D 05 21 
0978- 20 D? 03 B0 10 AC 78 05 0A40- Bé B5 B4 B3 B2 AE AE 5F 0B08- 3D 03 32 9D 14 33 8D 05 
0980- 88 B9 17 0 AC 54 0A ce 0A48- 50 56 5F 7F 5F SF 5F 53 0B10- 34 8D 15 35 8D 12 36 20 
0988- C8 ?1 28 DO C2 AD SD 0 0A50- 01 60 01 00 00 00 61 04 0B18- 20 37 8D 20 38 8D 20 39 
0990- 4A 44 4A 4A AB B9 47 0A 0A58- 00 20 00 00 01 00 00 60 0B20- 8D 20 01 &D 20 02 20 20 
0998- DO EA EE 54 OA AD 54 0A 0A60- 01 00 01 EF D8 04 09 13 0B28- 03 3D 20 04 30 20 05 20 
O9A0- C9? 23 90 A6 A2 1E BD 15 0Aé6S- 0B 20 03 08 05 03 0B 2D 0R30- 20 06 00 CS CE C2 CF D2 
09A8- 0B F0 06 9D 00 06 ES D0 0A70- 15 10 8D 8D A0 C3 CF D0 0B38- CS BF 00 
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Tout ce que 
VOUS avez 
tOUJOUrS 
voulu savoir... 


Apple #c 


PR nr dv de 


RE" 





LA dr = 


















4 
1 


LE 








Apple et GMS c'est une rencontre. 
Apple c'est toute une gamme d’ordi- 
nateurs personnels pour profession- 
nels. 

L'Apple Ze et son jeune frère compact 
l'Apple Zic. Ils sont très sérieux pour la 


BNFORMATIQUE € 


gestion, la tenue des stocks ou le trai- 
tement de texte. 

Et puis il y a Macintosh et sa souris. 
On clique sur la souris, on appelle le 
programme. Tout un menu est affi- 
ché par symboles, les éléments sont 


= 


Informatique GMS 212-214 avenue Daumesnil 75012 Paris. 







simples et les combinaisons infinies. 
Enfin il y a GMS, une équipe de pro- 
fessionnels qui vous accueilleront et 
vous conseilleront personnellement. 
Alors tout ce que vous avez toujours 
voulu savoir. 45.28.52. 





Apple 


ROUX. SEGUELA. CAYZAC & GOUDARD 


La réputation de Pom's vient-elle de 
faire un saut quantitatif ? La presse 
micro-informatique devient-elle folle ? 
Nous ne savons quelle en est la 
cause principale, mais nous avons 
reçu depuis le début du mois de sep- 
tembre une vingtaine de livres nou- 
veaux. portant pour la plupart d'en- 
tre eux explicitement sur l'Apple. 
Nous avons donc dû effectuer une 
sélection, les autres ouvrages étant 
purement cités à la fin de la biblio- 
graphie. 


Expériences d’Intelligence Artifi- 
cielle en Basic, .de John Krutch, 
Editions Evrolles - 119 pages. 

Le plus surprenant avec l'Intelligence 
Aïtificielle (prononcez “IA” pour faire 
dans le vent), c'est que personne n'y 
est indifférent: les uns y voient l’une 
des plaies d'Egypte. les autres y devi- 
nent le point de départ du futur âge 
d'or. 

Ce livre tente de démuthifier ce sujet 
et propose au lecteur de se lancer 
immédiatement dans les travaux pra- 
tiques, en exécutant quelques pro- 
grammes en Basic. Comme l'an- 
nonce le titre, il ne s'agit pas d'être 
exhaustif, mais de démontrer qu'il 
n'est pas nécessaire de disposer d'un 
ordinateur de grande puissance et de 
maîtriser un langage spécialisé (type 
LISP) pour aborder ce thème. 

Les sujets présentés sont variés : mé- 
thodes d'évaluation des programmes 
de jeu de dames ou d'échecs (mini- 
max, alpha-beta), résolution d'analo- 
gies (‘Socrate est un homme: tous 
les hommes sont mortels. donc..."), 
générateur de poésies (création de 
quelques alexandrins. malheureuse- 
ment souvent très sybillins), voire de 
romans policiers. 

Le livre termine ces expériences en 
exposant les mécanismes du célèbre 
programme DOCTOR (parfois diffusé 
en France sous le nom de FREUD). 
où l'ordinateur engendre les ques- 
tions d'un psychanaliste en fonction 
des réponses précédentes du patient 
humain 

Les programmes inclus sont très 
structurés, de manière à faciliter les 
modifications. Ils sont destinés à l'ori- 
gine au Basic du TRS-80. mais une 
annexe permet une traduction en 
Applesoft. Il est cependant dommage 
qu'ils n'aient pas été traduits en fran- 
Çais. 


20 progiciels-outils pour l'Apple 
Il, par Jean-Louis Marx & Alain Thi- 
bault, Editions du PSI. - 248 pages 
- 122 FF. 

Un des problèmes de l'Apple. c'est 
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Bibliographie 


Alexandre Avrane et Alexandre Duback 


-ne souriez pas-la richesse de sa bi- 
bliothèque de logiciels. En effet. le 
client potentiel a souvent la crainte 
de choisir un programme qui ne lui 
conviendrait pas et, devant le nom- 
bre de progiciels disponibles sur 
Apple et donc la possibilité de se 
“tromper”, il choisit parfois un autre 
matériel où il n'existe qu'un seul pro- 
gramme : ‘s'il ny en à qu'un. c'est 
qu'il est bon!”. 

Ce livre se propose d'aider le futur 
acheteur à s'V retrouver parmi la ga- 
laxie de progiciels disponibles sur 
Apple. Seuls les produits de grande 
diffusion en France sont abordés: 
ceux-ci sont présentés en quatre fa- 
milles : 

1) les tableurs : Visicalc et Multiplan: 
2) les traitements de texte: Apple 
Writer, Ka-Texte. WordS- 


tar MailMerge et Plume Il: 





3) les gestionnaires de fiches : Visifile. 
PES:File/Report. Visidex, L'Organisa- 
teur, Omnis. dBase Il et CX-Base 
200: 

4) les autres: Factor. AppleWorld, 
Graphor. Visitrend/Visiplot. 
PFS:Graph et Typing Tutor. 


On remarque donc de grands ab- 
sents (DB Master, Magic Window. 
etc.). Les nouveaux produits (appa- 
rus depuis quelques mois: Jane. 
Apple Works. Epistole...….} manquent 
également (mais tout va si vite !). 
Chacun des logiciels est évalué de 
manière identique selon une dizaine 
de critères (documentation, perfor 
mance à l'impression, sécurité, etc.) 
que le lecteur doit. par la suite, pon- 
dérer selon l'importance qu'il leur at- 
tache 

Cas rare dans ce type de comparatif. 
la configuration minimum nécessaire 
à chaque produit est précisément dé- 
taillée (ce qui a tout de même une 
certaine importance si l'on envisage 
d'utiliser dBase Il par exemple) 
Certainement utile aux gestionnaires 
désireux de choisir rapidement un 
progiciel. ce livre aurait cependant 


mérité d'être étoffé par l'analyse de 
quelques produits supplémentaires. 


Applesoft Basic for the Apple Il 
& lle. par Lois Graff & Larry Joel 
Goldstein, chez R.J. Brady Co. - 328 
pages - $20.75. 


Voici un excellent livre d'initiation à 
l'Applesoft : clair, précis et avec de 
nombreux programmes-exercices. 
Mais son problème, vous l'avez de- 
viné. c'est la langue : l'anglais est ra- 
rement le favori des débutants en in- 
formatique. D'autre part, il existe 
déjà de nombreux ouvrages similai- 
res parus en France. 

Cependant ce livre n'est pas sans in- 
térêt, même pour les anglophobes. 
car il apprend au lecteur à analyser 
un problème et à structurer la solu- 
tion, au lieu de se précipiter devant 
le clavier pour taper quelques centai- 
nes de lignes mal comprises. 
Parallèlement, les instructions du 
Basic Applesoft et du DOS 3.3 sont 
étudiées: malheureusement certaines, 
telles que WAIT, HIMEM. POS et 
l'&. sont (volontairement ?) ignorées. 
Une carte de référence plastifiée est 
jointe. 


P-Source, a guide to the Apple 
Pascal System. par Randall Hyde. 
chez Reston Publishing (Prentice 
Hall) - 462 pages - $24.95. 
Débutants s'abstenir! Ce livre n'est 
pas un guide d'initiation au Pascal 
sur Apple. mais s'adresse aux pro- 
grammeurs systèmes désirant connaî- 
tre leur machine sur le bout de leurs 
16 doigts. 

Une excellente connaissance du Pas- 
cal est nécessaire avant d'en aborder 
la lecture: en particulier, ce livre ne 
commence pas son exploration là où 
se terminent les manuels d'Apple. 
mais bien au-delà. Dès la première 
page. il part défricher l'allocation mé- 
moire de l'interpréteur p-code. puis 
enchaîne gaillardement vers une 
étude ethnologique des variables en 
Pascal. 

Après quelques conseils pour accélé- 
rer les programmes. ce manuel pro- 
pose plusieurs utilitaires en assem- 
bleur pour la mise au point des 
procédures. puis fournit une étude 
détaillée de chaque instruction ma- 
chine du p-code. Enfin. les routines 
de l'interpréteur sont décortiquées. et 
quelques dernières astuces de pro- 
grammation achèvent le tout 

Cet ensemble représente. à ma 


connaissance. le manuel le plus dé- 
taillé sur le fonctionnement interne 
du Pascal. Il est certainement dom- 
mage qu'il manque d'approche pé- 








dagogique, mais ses 450 pages bien 
tassées pourront éviter à certains de 
faire un stage de perfectionnement à 
l'Université de San Diego. 


Visicalc Applications. de Stanley 
Trost, traduit par Jean-Pierre Loison. 
chez Sybex - 274 Pages - 148 FF. 


Enfin une traduction bien faite: cela 
vaut le coup d'être souligné. le travail 
étant trop souvent effectué par des 
tâcherons mal pavés. Ce livre 
s'adresse aux utilisateurs de Visicalc 
déjà compétents et leur apporte de 
nombreux tableaux commentés et 
accompagnés de listes permettant de 
les reconstituer. 


Clefs pour Visicalc, par Jean- 
Louis Marx et Alain Thibault, Edi- 
tions du PSI - 101 pages - 100 FF 
Clefs pour Multiplan. par Jean- 
Louis Marx et Alain Thibault, Edi- 
tions du PSI - 127 Pages - 100 FF 


Ces deux ouvrages comptent parmi 
les seuls que nous connaissions. en 
langue française, dans lequels l'utili- 
Sateur peut trouver un certain nom- 
bre de “trucs” d'utilisation. Il s'agit 
d'ouvrages de référence, où toutes 
les commandes sont analysées dans 
l'ordre alphabétique et commentées 
en détail. 

Nous conseillons l'utilisation de ces 





Les nouvelles disquettes de Pom’s‘:” 


Alexandre Duback 


Pom's vous présente aujourd'hui 
trois nouvelles disquettes : un éditeur 
plein écran, la version 2 du Disk Ma- 
nager (enfin) et une disquette Macin- 
tosh, la première d'une longue série. 
Saviez-vous que les disquettes de 
Pom's sont les disquettes les plus 
vendues en France ? 


Disk Manager version 2 
Prix: 450 francs. Echange gratuit 
avec DMI. 


La version 2 du Disk Manager rem- 
place enfin à partir de ce numéro la 
version 1, dont l'expérience a prouvé 
qu'elle n'était hélas pas exempte de 
bugs. Afin de ne pas léser les ache- 
teurs de la première version, Pom's 
offre gratuitement la seconde version 
à tout acheteur de la première : ren- 
voyez (après en avoir fait une copie 
de sécurité) la disquette originale 
reçue de Pom's et une enveloppe au 
format 23*16 avec votre adresse et 
timbrée à 3,50 francs. Vous recevrez 
gratuitement la nouvelle version. 


Editeur plein écran 
De C. Levo. Prix : 150 francs. 


Cette disquette contient un excellent 
programme pour éditer un pro- 
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“Clefs” pour se renseigner sur telle 
ou telle commande, ou trouver la ré- 
ponse à une question précise. 


Memento Multiplan, par P. Bon- 
net et MT. Dinh, chez Edimicro - 
108 pages - 78 FF. 

Nous retrouvons ici les mêmes objec- 
tifs que dans les deux ouvrages pré- 
cédents, mais on a du mal à voir ce 
que ce livre apporte de plus que la 
documentation du programme Multi- 
plan. Reportez-vous donc aux ouvra- 
ges précédents. 


The Visicalc Applications Book 
for the Apple //e. par Jack Grush- 
cow, chez Reston Publishing (Pren- 
tice Hall) - $16.45,. 


Ce livre en anglais comporte une 
première partie d'apprentissage de 
Visicalc, suivie de six exemples ap- 
profondis : suivi de règlements, ana- 
lyse financière d'entreprise, prévision, 
plan, trésorerie et gestion de porte- 
feuille. Ouvrage bien fait: malheureu- 
sement, les exemples ne sont pas 
forcément transposables à l'environ- 
nement français. 


Autres titres 


dBase II sans embûches. par G. 
Grigorieff - Evyrolles - 176 pages - 


gramme Basic en plein écran. Vous 
listez votre programme Basic, le fai- 
sant défiler à tout instant en marche 
avant ou en marche arrière, l'arrêtant 
quand vous voulez. Vous effectuez 
les changements directement sur 
l'ensemble de l'écran, les comman- 
des étant lancées (comme dans le 
Program Line Editor - Pom's 1) par 
des touches de contrôle. 


Les commandes sont nombreuses : 
début de programme, fin de pro- 
gramme, marche avant, marche ar- 
rière, destruction, insertion, entrée de 
caractères de contrôle, effacement de 
fin de ligne, accès aux commandes 
DOS, recherche de chaînes. Les ca- 
ractères de contrôle dans les instruc- 
tions apparaissent en inverse. 


Une particularité que nous appré- 
cions beaucoup : un programme spé- 
cifique permet à l'utilisateur de choi- 
sir lui-même les caractères de 
contrôle des commandes. 


Disquette Macintosh 
Prix : 150 francs. 


Avec le développement du dossier 
Macintosh, il était inévitable que 
nous vous proposions aussi une dis- 


> 
F8 ES 





115 FF. 

Du style avec Wordstar, par R.B. 
White Jr. - Evrolles - 232 pages - 
150 FF. 

Forth pour micros. par JM. de 
Geeter - Eyrolles - 192 pages - 90 
FF. 

L'art des bases de données, par 
S. Miranda et J.M. Busta - Eyrolles - 
248 pages - 180 FF. 

Les systèmes de gestion de 
bases de données. par J. Akota - 
Evrolles - 320 pages - 170 FF. 

The Apple /'e personal computer 
for beginners, par Seamus Dunn et 
Valerie Morgan - Prentice Hall - 251 
Pages - $12.95, 

Handbook of Applesoft Basic for 
the Apple II and //e, par Roy Earl 
Myers et David Schneider - Prentice 
Hall - 321 pages - $16.45. 

Apple programming for learning 
and teaching (over 50 applica- 
tion programs), par Frederick Bell - 
Reston (Prentice Hall) - 305 pages - 
$ 22.05. 

Le Basic bien programmé, par 
AP. Stephenson - MicroDunod 
120 pages - 65 FF. 

Basic Microsoft et Basic ANSI. 
par M.Maiman - MicroDunod - 165 
pages - 80 FF. 
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quette Macintosh. Cette première dis- 
quette comporte les programmes pu- 
bliés dans les numéros 14 et 15, 
ainsi que le programme Disk Copy 
(copie rapide de disquettes avec un 
seul lecteur) et la police de caractères 
Cairo, grâce à laquelle vous pouvez 
vous exprimer en images (voir le ca- 
hier Macintosh). Jusqu'à saturation 
de cette disquette, nous y mettrons 
automatiquement tous les program- 
mes Mac de Pom's, ainsi que de pe- 
tites surprises, utilitaires, polices de 
caractères, … 


Disquette Pascal 
Prix : 80 francs 


Suite aux requêtes de nombreux lec- 
teurs, nous avons regroupé dans une 
disquette unique tous les program- 
mes Pascal publiés dans Pom's 
depuis le début. Cela vous évitera de 
transférer les programmes du DOS 
3.3 vers le Pascal. 


Les fichiers TEXT sont au recto de la 
disquette et les fichiers CODE au 
verso: ainsi, il n'y aura pas de pro- 
blème de compilation. LC] 
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Apple, quoi de neuf ? 


Après un Macintosh de 512K. né 
quatre mois avant terme, que pré- 
pare-t-on chez Apple ? Les meilleurs 
limiers de la presse micro-informati- 
que américaine sont sur le coup. 
Pour l'heure, le silence, de rigueur à 
Cupertino, laisse libre cours à toutes 
les supputations. 


Côté Macintosh, on prévoit des lec- 
teurs de disquettes double face: la 
capacité passerait de 400 à 8O0K. 
D'autre part, le plus exaspérant des 
problèmes de Macintosh. la lenteur, 
est partiellement dû au système d'ex- 
ploitation qui figure sur chaque dis- 
quette programme. Le fait d'avoir sur 
la disquette une partie du système 
est par contre un avantage car on 
peut aisément en changer pour, par 
exemple, adapter un programme à 
un clavier AZERTY. Les projets en 
cours consisteraient donc à intégrer 
les systèmes au Macintosh, pour en 
débarrasser la disquette et obtenir 
ainsi un accès plus rapide aux infor- 
mations. Une fois résolus les problè- 
mes de capacité et de vitesse, Apple 
pourrait, dit-on, se pencher sur 
l'adaptation de la couleur au Mac... 


Côté Apple Il, on attend pour la fin 
de l’année les nouveaux accessoires 
du //c et, notamment, l'écran à cris- 
taux liquides disposant de 25 lignes 
d'affichage. Si on ne l’a pas vu plus 
tôt, c'est simplement que son fabri- 
cant, le Japonais Sharp a subi un re- 
tard de six mois dans la mise au 
point de cet accessoire. Pour le //e, 
on reste muet à Cupertino sur les dé- 
veloppements du processeur 65816 , 
qui permettrait de le convertir en une 
machine 16 bits. Problèmes de mise 
au point ou approche du dénoue- 
ment ? 


D'autres études portent sur la capa- 
cité des lecteurs de disquettes. Au 
moment où IBM parvient à stocker 
12 Mo sur une disquette de 5 
pouces 1/4, la mini-capacité du lec- 
teur du Il (143K), devient probléma- 
tique. On peut donc s'attendre très 
prochainement à voir cette capacité 
augmenter notablement. La difficulté 
consiste seulement à maintenir la 
compatibilité avec les disquettes exis- 
tantes. En attendant, voici des nou- 
veautés pour tous les Apples. 


Moniteur couleur 


La nouveauté de l'automne, c'est 
aux Etats Unis le nouveau moniteur 
couleur sorti par Apple : le moniteur 
100. Esthétiquement, il ressemble 
beaucoup au moniteur monochrome 
du //e . Son écran est inclinable de la 
même façon mais, cette fois, un petit 
moteur se charge de l'opération (le 
tube est beaucoup plus lourd) et il 
suffit de presser une touche pour que 
l'écran s'incline vers le haut ou vers 
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Micro-informations 


le bas. Pour faire fonctionner ce mo- 
niteur, il faut bien sûr disposer d'une 
carte couleur (ou d'une carte Chat 
Mauve). 


Ce moniteur est vendu aux Etats 
Unis un prix respectable : 600 dol- 
lars, soit, pas beaucoup moins de 
6000 Francs au cours actuel du billet 
vert. L'explication d'Apple : il s'agit 
d'un des rares moniteurs couleur à 
fournir en texte la qualité d'un moni- 
teur monochrome, particulièrement 
en 80 colonnes. On peut désormais 
se contenter d'un seul moniteur pour 
les jeux, les graphiques ou les activi- 
tés professionnelles. En 80 colonnes, 
un switch permet de choisir la cou- 
leur de l'affichage : bleu, jaune, etc... 
Un bouton permet de passer du mo- 
nochrome à la couleur. 


Disques durs 


Pour disposer d'un stockage de don- 
nées, ou de programmes accessibles 
rapidement, le disque dur est la solu- 
tion. Les prix commencent à baisser 
sensiblement. Ainsi, le modèle pré- 
senté par la firme britannique Dering 
propose une capacité de 10 Mo pour 
un prix de 1095 Livres, soit environ 
14300 F. Pas cher l'octet.… 


Côté clavier 


Vous pouvez remédier à la faible ca- 
pacité du buffer du clavier de l'Apple 
{'e; il vous suffit d'intercaler le Type 
Ahead Buffer TAB1 de Trac Sys- 
tems Corp entre votre clavier et sa 
prise sur la carte mère. Pour seule- 
ment 45 dollars. 


Et si l'on pouvait se passer carrément 
du clavier ? Pourquoi ne pas entrer 
les données en donnant de la voix ? 
C'est possible avec le Voice Input 
Module de Cascade Graphics. Il suf- 
fit de parler pour que l'enregistre- 
ment des instructions se fasse. Vous 
dites Catalog” et la disquette affiche 
son contenu à l'écran. Le système se 
compose d'une carte, d'un casque, 
d'un micro et de logiciels. Il peut être 
utilisé sur l'Apple Il, mais aussi sur le 
lle (il faut dans ce cas enlever quel- 
ques circuits). Principal défaut : il ne 
supporte que la VO (c'est à dire l’an- 
glais) et peut se révéler sourcilleux 
sur là prononciation. 


La pince à tiercé 


Enfin, un petit instrument vendu 69 
francs permet (à ceux qui ont épuisé 
les charmes de la pince à tiercé et 
qui ne veulent pas se lancer dans la 
construction du double switch) de 
doubler la capacité de leurs disquet- 
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tes. Il découpe automatiquement au 
bon endroit l'encoche qui permet au 
lecteur d'accepter la disquette pour 
enregistrement. Attention, il vaut 
mieux vérifier ensuite la surface de la 
deuxième face avec un utilitaire 
(genre Locksmith}), et ne pas l'utiliser 
pour des informations capitales: la 
garantie du fabricant de disquettes ne 
s'applique pas au verso. 


Des yeux pour le Macin- 
tosh 


BIP distribue la caméra de digitalisa- 
tion Microneye. vendue 5.300 FF 
HT avec son interface et son logiciel. 
Cette caméra digitalise une image 
(qui doit être contrastée) et la trans- 
forme en image MacPaint, donc mo- 
difiable à loisir. Elle fonctionne aussi 
à la lumière artificielle et à l'infra- 
rouge. On peut reprendre un docu- 
ment de la taille d'une photo d'iden- 
tité. Parfait pour une utilisation avec 
le gestionnaie de fiches MacBase de 
Contrôle X, qui permet de mettre 
des images dans les fiches. 


Des yeux pour tous 


Palette, l'imageur électronique cou- 
leur Polaroid, permet d'obtenir des 
diapositives instantanées ou des 
photos papier à partir de nombreux 
logiciels courants (TGS. Décisionnel 
Graphique. Visiplot, etc...) ou d'ima- 
ges numérisées. 


Des cordes vocales pour 
l'Apple // 


Ediciel vient de sortir la première 
carte de synthèse vocale en langue 
française pour Apple, le Porte-Pa- 
role. Non seulement elle parle fran- 
çais, mais pour lui faire dire à peu 
près correctement ‘Îl write on the 
blackboard”, il faut écrire “’Aille raillte 
onn ze blakbaurde”! Nous reparle- 
rons de cette carte. 


Un écran portable pour 
le //c 


Après avoir déjà prouvé son origina- 
lité avec le Stadu.P, un Apple //e 
portable, LE.F. a présenté au Sicob 
un moniteur portable pour //c avec 
une batterie incorporée d'une auto- 
nomie d'environ 4 heures. Certes, 
cet écran est sensiblement plus volu- 
mineux que le //c, mais il comporte 
une batterie, ce qui ne sera pas le 
cas de l'écran plat du //c toujours at- 
tendu en France. Prix 2.590 FF HT. 
Voir la photo de couverture de ce 
numéro. 


ER, 
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que victoire, l'Apple 


Des programmes pour 
une souris 


Il n'aura pas fallu attendre très long- 
temps pour voir apparaître des pro- 
grammes utilisant la souris équipant 
le //e et le //c. 


Version Soft (le créateur d'Epistole) 
présente ainsi VersionCalc. le pre- 
mier tableur souris pour le /'c. Il pos- 
sède une fonction graphique et per- 
met de cumuler des tableaux et des 
graphiques. Le tout s'effectuant avec 
la souris et des menus qui rappellent 
furieusement le Macintosh. Attention, 
l'utilisation de ce logiciel sur un /’e 
(même avec une souris) peut pro- 
duire des effets surprenants. 


Dazzle Draw. de Broderbund, pré- 
sente un écran rappelant lui aussi le 
Macintosh et permet, à condition de 
disposer d'une souris (ou d'un joys- 
tick, d'une tablette Koala, etc...) et 
de 128K, de dessiner à l'écran. sur 
plusieurs fenêtres de surcroît. Le tout 
pour un prix ‘canon : 50 dollars 
seulement. 


Enfin, dernière conquête de la souris. 
Summergames d'Epyx. présente 
tout simplement les jeux olympiques. 
Epreuves de natation. de saut à la 
perche. de tir, etc... On choisit la na- 
tionalité (18 pays possibles) des 
concurrents avec la souris. on joue 
avec le même instrument. Après cha- 
vous joue 
l'hymne national du gagnant. et cal- 
cule la moyenne des médailles obte- 
nues. Graphiques et couleurs ex- 
traordinaires. Il y a même une 
cérémonie d'ouverture ! 


Plus classique 


Papyrus est la version francisée 
d'Homeword. un traitement de textes 
avec icônes. Certes, ce n'est pas le 
plus sophistiqué des traitements de 
textes. Pourtant. sa facilité d'emploi 
en fait un logiciel hors du commun. 
D'abord, parce qu'on peut, pour 
chaque action, choisir un icône sur 
lequel on se déplace avec le curseur. 
Mais, heureusement, des codes per- 
mettent aux clavistes expérimentés 
de court-circuiter ces icônes et de ga- 
gner en rapidité. Un bon point. En- 
suite, ce traitement de textes permet 
d'afficher à l'écran le texte tel qu'il 
sera imprimé. C'est suffisamment 
rare pour mériter un second bon 
point. Enfin, lorsqu'on lui tape un ac- 
cent circonflexe suivi d'une voyelle, il 
vous affiche à l'écran la voyelle avec 
son accent circonflexe. Bravo ! 


Si on ajoute que Papyrus permet 
d'insérer dans un texte un document 
qui se trouve déjà enregistré sur dis- 
quette (Macwrite, le premier traite- 
ment de texte du Macintosh, ne le 
fait pas directement), qu'il permet les 
caractères gras, soulignés, l'efface- 
ment des mots et des lignes, et peut 


mème automatiquement numéroter 
des paragraphes indentés, on peut 
s'estimer satisfait du bilan. Tout au 
plus peut-on lui reprocher, en saisie 
de textes, une certaine confusion à 
l'écran. Lorsqu'on change de carac- 
tères (passage en souligné, gras. 
etc...) et qu'il faut revenir au carac- 
tère normal, ce passage s'inscrit en 
clair à l'écran. ainsi que les RE- 
TURNs. Reste que pour taper sim- 
plement une petite lettre, ce pro- 
gramme na guère de concurrent. 
D'autant qu'il ne coûte que 850 
francs. Fortement recommandé 


Parmi les programmes intégrés. à si- 
gnaler Magic Officed'Artsci, qui 
comprend un traitement de textes, 
un tableur, des graphiques et un dic- 
tionnaire de correction, le tout claire- 
ment présenté en tiroirs. dossiers, 
avec des possibilités de couper-coller 
entre documents. Bien mieux pré- 
senté qu Appleworks. mais il ne lui 
manque que Quickfile : il nv a pas 
de gestionnaire de fiches. 


Depuis peu. the Team de U-Micro- 
computers, offre un traitement de 
textes, un gestionnaire de fiches, des 
possibilités de calcul et un graphisme. 
Le tout fonctionnant en Pascal pour 
Apple Il Plus. e et /'c. 


À remarquer encore le logiciel de 
correction d'orthographe automati- 
que Sensible Speller de Sensible 
Software, contenant 80000 mots sur 
un seul disque (une performance sur 
143K!). C'est malheureusement en 
anglais, et il reste encore à inventer 
un de ces logiciels de correction en 
français. Le Sensible Speller fonc- 
tionne avec la plupart des program- 
mes de traitement de textes et coûte 
quelques 125 dollars. 


Le programme Spelling Handler. 
de ALS (Sunnyvale, Californie) fait 
encore mieux avec 90.000 mots ! 


Jeux d’aventures 

Enfin, deux jeux d'aventure de créa- 
tion française : Epidémie et Para- 
noïak. Du niveau des jeux d'aven- 
ture américains selon les critères du 
scénario, des graphiques et du son. 
Edités par Froggy Software et distri- 
bués par Shift Editions. Fonctionnent 
sur Il Plus, /e et /’c. Prix: 350 FF 
TTC pièce. 


Imprimante à marguerite 


Kardex vient de sortir une machine à 
écrire/imprimante à marguerite éco- 
nomique à 5.000 FF HT prix public 
conseillé, l'AE 355, offrant de nom- 
breuses possibilités. Elle fonctionne 
en parallèle, mais on peut acquérir 
un boîtier pour la connexion série 
avec un buffer de 2K (1.500 FF HT) 
ou 4K (1.700 FF HT). Une margue- 
rite est fournie d'origine, mais 9 
autres sont disponibles. Vitesse d'im- 
pression : 14 cps. Trois pas d'écri- 
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ture : 10, 12 et 15. 


Un modèle récent, l'AE 385. vous 
offre pour 1.000 FF HT de plus des 
caractères gras. un espacement pro- 
portionnel et une impression bidirec- 
tionnelle. 


Deux logiciels un peu 
particuliers 


Le Biofeedback de Syunapse 
comporte un bandeau à placer sur le 
front, contenant des capteurs, et me- 
sure le niveau de stress de l'utilisa- 
teur de l'Apple //. Le résultat s'affiche 
sur l'écran en courbes et graphiques. 
Un stress qui commencera avec 
l'achat : prix 150 dollars. 


Le Smarthome de Cuyberlunx. per- 
met lui d'automatiser un apparte- 
ment et de le contrôler avec l'Apple 
fc. En se servant de la souris, et 
avec des icônes, on contrôle l'électri- 
cité et les sytèmes d'alarmes antivols. 
Prix : 499 dollars. 


Adresses 

Alpha Systèmes - 29, bd. Gam- 
betta - 38000 Grenoble - Tél (76) 
43.19.97. 


B.L.P. - 13, rue Duc - 75018 Paris - 
Tél 255 44683. 


Broderbund Software - 17. Paul 
Drive. San Rafael - CA 94903 
USA. 


Cascade Graphics Development 
- 185 lower Richmond Road, Rich- 
mond - Surrey - GB. 


Contrôle X - Tour Maine Montpar- 
nasse - 33, avenue du Maine - 
75755 Paris Cedex 15 - Tél 538 
9887. 

Cyberlynx - 4828 Sterling Drive, 
Boulder - CO 80301 - USA. 


Ediciel Matra Hachette - 22, rue 
la Boétie - 75008 Paris - Tél 260 
0032. 

LE.F. - 193, rue de Javel - 75015 
Paris - Tél 828 0601. 

Kardex - 201, rue Carnot - 94120 
Fontenay sous Bois. 


Sensible Software - 24011 Seneca 
Oak Park - MI 48237 - USA. 


Synapse - 5221 Central Avenue 
Richmond - CA 94804 - USA. 


Trac System Corp. - 444 North 
3rd Street, suite 201, Sacramento - 
CA 94814 - USA. 
U-Microcomputers - Winstanley 
Industrial Estate, Long Lane, War- 
rington - Cheshire WA2 8PR - GB. 


Version Soft - 60, rue Castagnary - 
75015 Paris - Tél 530 0528. 

Froggy Software - 33, avenue Phi- 
lippe Auguste - 75011 Paris. 
Polaroid France - 4, rue J-P Tim- 
baud, B.P. 47 - 78391 Bois d'Arcy 
Cedex - Tél (3) 460 6166. 

Shift Editions - 27, rue du Général 
Foy - 75008 Paris. & 
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Utilisateur d'AppleWriter sur une 
Oki84, je ne parviens pas à imprimer 
le “6” L'Oki84 ne semble en effet 
pas reconnaître le caractère de ‘dé- 
placement à gauche Ctrl-H. utilisable 
avec les autres imprimantes. 


Jean-Marie  Hasquenoph 
Chelles 


Avec les Oki, le backspace ne fonc- 
tionne pas. Par contre, sur mon Oki 
92 (ce devrait être la même chose 
pour une 84), j'obtiens comme vous 
venez de le voir un ‘ê” en appuyant 
sur un tréma (non suivi d'une lettre). 
Pour tester toutes les possibilités de 
caractères de votre imprimante, créez 
un fichier avec toutes les touches de 
votre clavier, en mode normal, puis 
Shift, puis Ctrl, puis Ctrl-Shift et 
enfin Esc. 

Vous aurez peut-être des surprises 
avec votre imprimante (dans ce cas, 
enlevez ce qui ‘plante” l'impri- 
mante), mais cette recherche systé- 
matique peut vous permettre de 
trouver des solutions à des problèe- 
mes tels que le précédent. 


77500 


Vends Apple Il Plus avec carte lan- 
gage (16K), joystick, paddles, moni- 
teur et deux lecteurs de disquettes. 
Prix 13.500 F à débattre. 


A. Avrane - 124 quai Louis Blériot - 
75016 Paris. 


Vends Apple /’c état neuf encore 
sous garantie (cause double emploi) 
avec moniteur et stand moniteur. 
Prix 11.700 F. Possibilité de souris et 
second lecteur. Téléphone 956 80 
00, poste 643. 


Vends Apple Il Plus avec moniteur 
Sanyo vert, deux lecteurs et un 
contrôleur DOS 3.3, carte communi- 
cation asynchrone (CCS) et carte 
langage 16K. Prix 10.000 F TTC. 
Vends machine à écrire/imprimante 
Olympia ESW100-KSR (interface 
série). Excellent état. Prix 8.000 F 
TTC (Achat 14.587 F). 

Bruno Lemaire. Tél (3) 956.80.00. 


Vends Apple Il Plus avec moniteur 
Philips ocre, deux lecteurs et un 
contrôleur DOS 3.3, carte langage 
Microsoft, carte RVB en option. Prix 
8.500 F TTC. Tél (3) 952.59.31. 
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Courrier des Lecteurs 


L'utilitaire  APA  d'APPLESOFT 
TOOLKIT comporte un bug En 
effet, il est impossible d'obtenir la 
liste des variables (fonction &XREF) 
si la programme analvsé contient des 
DATAs. L'addition des deux lignes 
BASIC ci-dessous au programme 
LOADAPA autorise la référence croi- 
sée dans tous les cas : 

115 HI = PEEK (115) + 256 x PEEK (116) 
- 6: HIMEM: HI] 


315 POKE H1,32: POKE HI + 2, PEEK (HI - 
1120): POKE HI - 1170,HI / 256: 
POKE HI + {, PEEK CHI - 1171): PO 
KE HI - 1171,H] - 256 x PEEK CH] 
- 1170): POKE HI + 3,201: POKE H 
1 + 4,0: POKE HI + 5,96 


Yvan KOËENIG - avenue du stade - 
06220 VALLAURIS 


Je suis en train d'écrire un pro- 
gramme gestionnaire de fichiers et 
deux problèmes se posent à moi : 

1) Je voudrais que mon programme 
puisse me dire à tout moment 
combien de secteurs restent libres sur 
la disquette : comment faire ? 

2) J'aurais également voulu que le 
RESET agisse comme un RUN. La 
routine de RUN étant implanté en 
D566, j'ai converti ce nombre en dé- 
cimal, et j'en ai poké les poids fort et 
faible aux adresses 1010 et 1011: 
POKE 1010.102 et POKE 1011,213 
suivi de CALL — 1169. Ceci provo- 
que bien un RUN à chaque RESET 
mais les ordres du DOS s'affichent 
alors à l'écran et ne fonctionnent 
plus. Comment v remédier ? 


Olivier LEDOUX - 135/12 rue du 
Gal Leclerc - 59790 RONCHIN 


1) Dans le Pom's 2 en page 17, fiqu- 
rent différentes modifications du 
DOS, en particulier le patch” néces- 
saire pour obtenir le nombre de sec- 
teurs disponibles dans le CATALOG. 
Vous trouverez ci-dessous le listing 
qui réalise la modification. Il suffit 
alors d'initialiser votre disquette avec 
ce nouveau DOS. 


19 REM 


fe be be ae me ne ae me be es AE ee pe D D C2 


* * 
“ SECTEURS LIBRES * 
« » 
* A CHAQUE LI 
29 REM »* * 
* CATALOG * 
* 
eee ee ae ee ee ee ee 4 
T0 REM 


Alexandre Duback 


eu 


HOME : LIST 10,20 

Y$ = "AEB4:S5B N ADCZ:20 00 BE 

pépUree oc 20 4A F3 A3 00 
2 


6290 
INT “OK'": END 


2a M 
TINE MONITEUR 
65305 REM APPLESOFT DE S.H. LAM 


63910 YS = Y$ + " N DSCEG" 
63929 FOR _I = 1 TO LEN (Y#) 
633:9 POKE 5311 + I, ASC ( MIDS € 


er rt LE +_128 
Es, NEXT 3 POKE 72,@1: CALL - 
639350 RETURN 


2) Les POKESs que vous utilisez pro- 
voquent en effet un RUN lors du 
RESET. Toutefois, le RESET ‘dé- 
connecte” les entrées/ sorties du 
DOS. CALL 1002 au début de votre 
programme résoudra votre problème. 
Cependant, il est bon de préciser 
qu'un RESET dans un programme 
qui travaille sur disquette n'est pas 
prudent, surtout en cours d'écriture... 





Je recherche un logiciel d'astrologie 
professionnelle exploitable sur Apple 
/e. Je sais qu'il en existe un en fran- 
çais. Pouvez-vous me le confirmer ? 
Joël Moreau - 7 rue J Moœvyse - 
44100 Nantes 


Peut-être un lecteur peut-il nous ré- 
pondre ? 





J'ai fondé à New Delhi une société 
spécialisée dans la recherche acousti- 
que et l'ethnomusicologie, qui utilise 
de façon intensive les micro-ordina- 
teurs, Apple entre autres. Je voudrais 
signaler à tous ceux que ces domai- 
nes intéressent que je compte fonder 
la branche européenne de cette acti- 
vité d'ici un an environ. Dans cette 
perspective, j'invite ces personnes à 
me contacter. 


Bernard Bel - ISTAR - 113 Jorbagh - 
New Delhi 110003 - Inde 


Je commercialise un logiciel de déco- 
dage des émissions radiotélégraphie 
(RTTY) au prix de 600 francs. A 
l'aide d'un récepteur BLU, il est pos- 
sible de décoder les messages en 
trois vitesses, les sauvegarder sur dis- 
quette et les visualiser sur écran ou 
imprimante. Les résultats obtenus 
sont tout à fait satisfaisants et j'invite 
les personnes intéressées à m'écrire. 


Monsieur Guedj Michel - 34 rue 
Pierre Curie - 93130 Noisy le Sec 
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10° CONGREÈS-EXPOSITION DE MICRO- INFORMATIQUE, DU 16 AU 19 FÉVRIER 1985, 
PALAIS DES COCHE CIP. ue MAILLOT, rs 

TE CRO-OI RS / LOGICIELS / DIDACTICIELS / PROG ICIELS / BUREAUTI- 
CONNI ExXIC DNS / PERIPHERIQUES / ACCESSOIRES / 
SPECIALISEÉE / INSTITUTS Re FC DRMA TK ON / IETES DE 
R( HE CONPRENCE HAT D UN MICRO-C -ORDINA- 
rs ASIC, PAS CAL, MOL DULA II, C, ADA / 
| NDRE LA TEL ÉMATIQ UE / L'AVE .NIR DU 
ELLE : LES SYST EN MES EXPERTS / LE : LOGICIEL OUTIL DE 

ak IELS II NTÉG RES — TABLEURS — DECI . 
















ONNELS GRAPHI- 
UN PASSEPORT D'UNE VALEUR DE 100 F 
CATAL(C UE DÉTAILLE SUR SIN APLE L DEMANDE À 








A propos ‘des trucs pour Apple Wri- 
ter Il et /’e° de H. Thiriez dans le 
Pom's 12. j'ajoute quelques mots sur 
la commande CTRL-V. Il est vrai 
que le glossaire de la version ‘’e in- 
terprète les caractères de contrôle 
comme en mode direct. Il est donc 
nécessaire de les faire précéder de 
CTRL-V dans le glossaire. Or. pour 
des raisons évidentes, il n'est pas 
possible d'entrer CTRL-V dans un 
texte par le moven habituel On a 
donc prévu sur la disquette un fichier 
(CONTROLV) contenant le seul ca- 
ractère CTRL-V pour pouvoir l'insé- 
rer dans un texte qui peut servir de 
glossaire. Il v à toutefois un moyen 
qui évite les accès répétés à la dis- 
guette. Îl suffit d'utiliser n'importe 
quel autre sumbole à la place de 
CTRL-V. ‘x par exemple. En fin de. 
travail. on remplacera toutes les ‘x 
par des CTRL-V en utilisant la 
commande : CTRL-B puis CTRL-F 
*/CTRL-Va. En effet. l'instruction 
CTRL-F n'nterprète pas le CTRL-V 
mais se contente de l'insérer... 


Daniel HIRST - 13090 AIX 


Je vous propose un petit programme 
Basic complémentaire de la routine 
de comparaison de programmes 
Basic de Gérard Michel. publiée dans 
le Pom's 11 (DIF. OBI). 

Ce programme demande les noms 
des programmes à comparer et crée 
un fichier EXEC dont il lance l'exé- 
cution pour réaliser la comparaison. 


Gérard  Hlisleur 38320  Evbens 


10 HOME : HTAB S: INVERSE : PRINT “COMP 
ARAISON DE FICHIERS BASIC" 

20 VTAB 7: HTAB 1: PRINT “FICHIER 1 : “ 

30 VTAB 10: HTAB 1: PRINT “FICHIER 2 : 


40 NORMAL : VTAB 7: HTAB 13: INPUT ““3F 
1e 

SO VTAB 10: HTAB 13: INPUT ““3F28 

60 D# = CHR# (4): ONERR GOTO 70: PRINT 
D#;"DELETE DIF.EXEC"* 

70 POKE 216,0: PRINT D#;"OPEN DIF.EXEC* 
: PRINT DS;"WRITE DIF.EXEC" 

80 PRINT “BLOAD DIF.OBJ“: PRINT “LOAD 
3F18: PRINT “POKE 103,PEEK(175):P 
OKE 104,PEEK(176)": PRINT “LOAD * 


3F28: PRINT “CALL 37500" 
85 PRINT “CALL979": REM PATCH A.AVRANE 
90 PRINT D#;"CLOSE": PRINT D#;"EXEC DIF 
.EXEC* 


Disk check-up.. 


a, 





Pom's n° 15 


N.D.L.R. 


1} Plusieurs lecteurs nous ont signalé 
qu'ils avaient résolu les problèmes 
concernant la copie sur imprimante 
des écrans de présentation des dlis- 
quettes Pom's. La solution adoptée 
consiste alors toujours à envoyer à 
l'imprimante les codes permettant de 
supprimer l'affichage simultané à 
l'écran. 

Nous n'avions peut-être pas assez in- 
sisté sur ce point dans les numéros 
précédents, mais il est certain que. si 
l'interface dont vous disposez affiche 
à l'écran en même temps qu'elle en- 
voie les caractères à l'imprimante. 
l'écran ainsi recopié est simultané- 
ment modifié et ne peut correspon- 
dre à l'écran original. 

Si tel est votre cas. il suffit donc de 
rajouter un PRINT du code de 
contrôle supprimant cet affichage sur 
votre matériel. dans la ligne du pro 
gramme MENU des disquettes qui 
appelle la routine de hard-copy (gé- 
néralement la ligne 70). Cette ins- 
truction PRINT ‘code de contrôle” 
doit venir juste avant le CALE 
37989. 


2) Plusieurs lecteurs nous ont par ail 
leurs retourné des disquettes ‘’détrui 
tes” à la suite d'une fausse manoeu- 
vre sur laquelle il peut être bon 
d'insister un instant. En l'occurrence. 
les. personnes concernées ont tape 
"EXEC Fichier”, alors que ‘Fichier 
n'était autre qu'un fichier source en 
assembleur sauvé sous format TEXT. 
Précisons donc que tout fichier TEXT 
(précédé d'un T au catalogue) n'est 
pas pour autant un fichier EXECuta 
ble. En particulier, il ne faut JAMAIS 
faire un EXEC d'un fichier source 
d'assembleur. La revue précise tou- 
jours quelles sont les opérations per- 
mettant de mettre en route un pro- 
gramme en langage-machine, et la 
présentation des disquettes rappelle 
également à quoi correspondent les 
différents fichiers et comment il faut 
les utiliser. En suivant ces indications. 
vous éviterez souvent de détruire vos 
disquettes. ‘ 


Précisions et errata 
Moniteur Etendu du Pom's 8 


A l'issue d'un long débat, il semble 
que la seule solution simple pour ré- 
soudre le petit problème du buffer 
d'entrée dans ce programme passe 
par une modification du programme- 
source comme suit : 


— Ligne 160: LDX #0 au lieu de 
LDX #1 (soit 8D5F: 00 dans le 
code-objet). 

— Ligne 163: NOP au lieu de INY 
(soit 8D66: EA dans l'objet). 

— Insérer une ligne 897 INC CH 
avant la ligne 897 originale (JSR 
UP). 


Bloc-notes du Pom's 13 


A la ligne 2540, il convient de rem- 
placer ”.121°” par ”,L121° pour que 
la fonction de destruction des fichiers 
fonctionne normalement. 


ICARE - Pom's 14 


La liste des modifications publiée 
dans le Pom's 14 concernant l'adap- 
tation du programme Tortue du 
Pom's 6 en vue de son intégration 
au logiciel ICARE était malheureuse- 
ment incomplète. Vous trouverez ci- 
après la récapitulation des opérations 
à effectuer sur le programme source 
original pour cette implantation : 


e Remplacer la séquence ‘Suite Ins- 
tructions” par celle publiée dans le 
Pom's 14 

e Supprimer les lignes 579 à 612 

La ligne 573 devient BNE E.ERR 

e La ligne 271 devient PLUME HEX 
00 

e Dans la ligne 138. T10 remplace 

T11 

Supprimer les lignes 134 à 137 

Supprimer les lignes 65 à 90 

Supprimer la ligne 55 

Assembler le nouveau source ainsi 

constitué à l'adresse $886E 


Disque 64K - Pom's 14 


Il faut rajouter un code D9 à la fin de 
la récapitulation du programme 
AUTO RWAUXINIT.OBJ en 50 FF. 


Disques virtuels 16K et 64K 


Si vous possédez deux lecteurs de 
disquettes, vous pouvez en ‘fabri- 
quer” un troisième en évitant de 
mettre le disque virtuel en lieu et 
place de votre lecteur 2. Il suffit pour 
cela de désigner le disque virtuel 
comme ‘lecteur 3” et de faire ad- 
mettre au DOS l'existence de ce lec- 
teur. La routine de gestion du lecteur 
virtuel étant chargée. les POKES sui- 
vants réalisent l'opération. 


1) Disque 16K : 
e POKE 48825,3 
e POKE 43355,3 
2) Disque 64K : 


e POKE 48372,3 
e POKE 43355,3 


EE 
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DISQUETTES 

















HAIFA a nine mit ernne, (cf. Pom's n°5)... à DS OF rues 
H-BASIC::.. 55 ana (cf. Pom's n°8) à. LOOOUF: ia 
MUSIC ni Nam ru nameenn (cf. Pom's n° 10)... à SOOOET Suisses 
DISK-MANAGER (cf. Pom's n°11) à A450,00F 
DBSTAG (CP/M) (cf. Pom's n°11) à 45000F 
JEUX AE mena A meta (cf. Pom's n° 12) à 80,00 F 
JEUX BH clins cute ac hate (cf. Pom's n°12) à SOOOEF. - huissiers 
BASICIUM (cf. Pom's n°13) à 150,00F 
DEMO CX SYSTEME 64K ........ (cf. Pom's n°13) à BS O0 FE: Si 
DEMO JANE 64K ......................… (cf. Pom's n° 13)... à DHOU ET Ce, 
É PE nimeinain ra teamssas (cf. ce numéro) à HSOOO EF nina 
MACINTOSH (cf. ce numéro) à. 19000F 1:44 
PASCAE:: Sn 2 a (cf. ce numéro) à SOOO'F- 5:52: 
RECUEILS 
N° 1, recueil des revues 1 à4 à 130,00F 
Disquettes d'accompagnement des numéros 1 à4 de AOOOOF 521 
N° 2, recueil des revues 5 à8 à 13000F 
Disquettes d'accompagnement des numéros 5 à 8 à: LIOOOE aussi 
ANCIENS NUMEROS 
REVUES ea ET el 8 muse à 35.00 F 
REVUES C] 9 []10 fC]11 
C112 [113 []14 []15 ones à 40,00 F 
DISQUETTES [|] 1 [] 2] 3 []4 (15 
Li6: CN À EX $ ET 9 ET 10 
EN EME MAIS CN oem Crisns à DS OO0E Si 
ABONNEMENTS 
POUR 6 NUMEROS à partir du n 
ABONNEMENT SANS DISQUETTES à 200,00F 
ABONNEMENT AVEC DISQUETTES à 4SOO00F 


TOTAL TTC 
Supplément expédition 
par avion 


MONTANT 
DU REGLEMENT 


Ces tarifs comprennent l'envoi postal en France métropolitaine, CEE et Suisse (voie aérienne exceptée) 
Supplément avion : 10 F par numéro et ou disquette 








Envoyez ce bon et votre règlement à 
Editions MEV - 64-70, rue des Chantiers - 78000 VERSAILLES 


Nom 


Adresse 
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LE 
si = apple 


PROMOTION 1° ANNIVERSAIRE 


Prix TTC 
Lecteur de disquette 5” 1/4 half size............... 1950 
Carte contrôleur 









CARTE LANGAGE + 1 bte disq.. 500 
CARTE 80 COLONNES (pour || +) 750 


(avec kit inverse et minuscules accentuées) 









VENTILATEUR EXTERNE .................... hours 
JOYSTICK LUXE (précisez Il + ou lle)...,......... 200 
Accelerator, Applicard, Carte 8088, etc... nous consulter 
MONITEUR PHILIPS 12” Vert. : 
ASCII Express Professionnal..................... 1200 
& beaucoup d'autres programmes 













PROMOTION SUR NOS IMPRIMANTES 


IMPRIMANTE Graphique 
avec interface parallèle et cable .................. 3500 







Prix modifiables sans préavis, stock limité 
" APPLE Il est une marque déposée de APPLE COMPUTER INC. 












BON DE COMMANDE sm ou mor 
BON DE COMMANDE : :etourner à MACSI 125. rue AMELOT 75011 PARI 


NOM, Prénom... DESIGNATION 


rue .. 
pNCE Code postal ......... Ville 
Mesrine lats:. Matériel DOS Et 








Signature 
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Le cadeau d'Atari 
à tous les possesseurs de VIC 20. 
Commodore 64, Apple Il et TI 99/4A. 
| à | 






E 


Avec Âtarisoft, découvrez 13 des plus grandes stars d'Atari. 


Même si vous n’avez pas d'ordinateur Atari, Atarisoft vous permet désormais de 
découvrir les programmes Atari les plus célèbres : Pac-Man, Centipède, Jungle Hunt, 


Pôle Position, Galaxian, Miss Pac-Man, Joust, Moon Patrol, ATARISOFT : 


Dig-Dug, Donkey Kong, Robotron 2084, Defender, Stargate. 





